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THE FORTH SOURCE 



TM 



MVP-FORTH 



Stable - Transportable - Public Domain - Tools 
You need two primary features in a software development package . . a 
stable operating system and the ability to move programs easily and 
quickly to a variety of computers. MVP-FORTH gives you both these 
features and many extras. This public domain product includes an editor, 
FORTH assembler, tools, utilities and the vocabulary for the best selling 
book "Starting FORTH". The Programmer's Kit provides a complete 
FORTH for a number of computers. Other MVP-FORTH products will 
simplify the development of your applications. 

MVP Books - A Series 

□ Vtolume 1, All about FORTH by Haydon. MVP-FORTH 
glossary with cross references to fig-FORTH, Starting FORTH 
and FORTH-79 Standard. 2"^ Ed. $25 

□ Volume 2, MVP-FORTH Assembly Source Code. Includes 
GP/M® , IBM-PC® , and APPLE® listing for kernel $20 

□ Volume 3, Floating Point Glossary by Springer $1 



□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. 
Can also generate headerless code for ROM or target 

CPU $300 

□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. Use 
for applicatons on CP/M based computer. Includes pubHc 
domain source $1 50 

□ MVP-FORTH Fast Floating Point Includes 951 1 math chip on 
board with disks, documentation and enhanced virtual 
MVP-FORTH for Apple II and lie. $450 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE 
Programmer's Kit. Extremely useful tool for decompiling, 
callfinding, and translating. $150 



□ MVP-FORTH by ECS for IBM-PC or ATARI® 
screen editor. License required. 



Standalone with 
$100 



•>|l □ Volume 4, Expert Systenn with source code by Park 



$25 



^ □ Volunte 5, File Management System with interrupt security by 
^ Moreton $25 

MVP-FORTH Software - A Transportable FORTH 

□ MVP-FORTH Programmer's Kit including disk, documen- 
tation, Volumes 1 & 2 of MVP-FORTH Series (All About 
FORTH, 2"d Ed & Assembly Source Code), and Starting 
FORTH. Specify □ CP/M, □ CP/M 86, □ CP/M + , □ APPLE, 

□ IBM PC, □ MS-DOS, □ Osborne, □ Kaypro, □ H89/Z89, 

□ Z100, □ TI-PC, Q MicroDecistons, □ Northstar, 

□ Compupro, □ Cromenco $1 50 



□ MVP-FORTH by ECS for IBM-PC or ATARI. With color 
animation, multitasking sound, utilities, and license. 



$1 75 



□ MVP-FORTH Professional Application Development System 
(PADS) for IBM-PC, or APPLE. A three level integrated system 
with complete documentation. Complete system $400 

□ MVP-FORTH Expert System for development of knowledge- 
based programs for Apple, IBM, or CP/M. $80 

^ D MVP-FORTH File Management System (FMS) with interrupt 

security for IBM, Victor 9000, or CP/W $200 



FORTH DISKS 

FORTH with editor, assembler. 



FORTH MANUALS, GUIDES & DOCUMENTS 



□ 


APPLE by MM 


$100 


□ 


APPLE by Kuntze 


$90 


□ 


ATARI® valFORTH 


$60 


□ 


CP/M® by MM 


$100 


□ 


HP-85 by Lange 


$90 




HP-75 by Cassady 


$1 50 


IBM-PC® by LM 


$100 



and manual. 

□ NOVA by CCI 8" DS/DD$150 

□ Z80 by LM $50 
B 8086/88 by LM $1 00 

□ VIC FORTH by HES, VIC20 
cartridge $50 

□ C64 by HES Commodore 64 
cartridge $60 



F-Floating Point, G-Graphics, T-Tutorial, 
Chip Support, MT-Multi-Tasking, X-Other 



□ 



Enhanced FORTH with 
S-Stand Alone, M-Math 
Extras, 79-FORTH-79. 

□ APPLE by MM, 
F, G, &79 $140 

G ATARIbyPNS, F,G, &X. $90 

□ CP/M by MM, F & 79 $140 

□ Apple, GraFORTH by I $75 

□ Multi-Tasking FORTH by SL, 
CP/M, X &79 $395 

□ TRS-80/1 or III by MMS 
F, X, &79 $130 

^ □ Timex by FD, tape G,X, 

& 79 $45 
^ □ Victor 9000 by DE,G,X $150 

□ fig-FORTH Programming Aids for decompiling, callfinding, 

and translating. CP/M, IBM-PC, Z80, or Apple $150 
CROSS COMPILERS Allow extending, modifying and compiling for 
speed and memory savings, can also produce ROMable code. •Requires 
FORTH disk. 



Extensions for LM Specify 
IBM, Z80, or 8086 

□ Software Floating 

Point $1 00 

□ 8087 Support 

(IBM-PC or 8086) $100 

□ 9511 Support 

{Z80 or 8086) $1 00 

□ Color Graphics 
(IBM-PC) $100 

□ Data Base 
Management $200 

Requires LM FORTH disk. 



□ CP/M $300 

□ 8086* $300 

□ Northstar® $300 
FORTH COMPUTER 

□ Jupiter Ace 

□ 16K RAW Pack 

□ 48K RAM Pack 
Key to vendors: 

CC( Capstone Computing Inc. 
DE Dai-E Systems 
FD Forth Dimension 
I Insoft 

LM Laboratory Microsystems 



□ IBM* 

□ Z80» 

□ Apple I 



$300 
$300 
$300 



□ 
□ 

□ 
□ 
□ 

□ 



ALL ABOUT FORTH by 

Haydon. See above. $25 
FORTH Encyclopedia by 
Dehck & Baker, 
Programmer's manual to fig- 
FORTH with FORTH-79 
references. Flow charted, 2"^ 
Ed. $25 
Understanding FORTH by 
Reymann $3 
FORTH Fundamentals, Vol. 
I by McCabe $1 6 

FORTH Fundamentals, Vol. 
I! by McCabe $13 □ 

Beginning FORTH by 
Chirlian $17 □ 

FORTH Encyclopedia 
Pocltet Guide 



□ 1980 FORMLProc. 



$25 



□ 
□ 
□ 

□ 

□ 

□ 



$7 

And So FORTH by Huang. A 



$25^^^n 



college level text. 

FORTH Programming by □ 

Scanlon $17 □ 

FORTH on the ATARI by E 

Floegel $8 q 

Starting FORTH by Brodie □ 
Best instructional manual 
available, (soft cover) $18 ^ 
Starting FORTH (hard 
cover) $23 



68000 fig-Forth with 
assembler 



$25 



1981 FORML Proc 2 Vol $40 

1982 FORML Proc. $25 

1981 Rochester FORTH 
Proc. $25 

1982 Rochester FORTH 
Proc. $25 

1983 Rochester FORTH 
Proc. $25 
A FORTH Primer $25 
Threaded Interpretive 
Languages $23 
METAFORTH by 

Cassady $30 
Systems Guide to fig- 
FORTH $25 
Invitation to FORTH $20 
PDP-11 User IMan. $20 
FORTH-83 Standard $15 
FORTH-79 Standard $15 
FORTH-79 Standard 
Conversion $10 
Tiny Pascal fig-FORTH $10 
NOVA fig-FORTH by CCI 
Source Listing $1 5 

NOVA by CCI User's Manual 
includes editor, assembler, 
and utilities $25 
Jupiter ACE Manual by 
Vickers $1 5 

$15 



$150 
$50 
$125 



MM MicroMotion 

MMS MiHer Microcomputer Services 
NS Nautilus Systems 
PNS Pink Noise Studio 
SL Shaw Lfbs 

Ordering Information: Check, Money Order (payable to MOUNTAIN VIEW PRESS, 
INC.). VISA, MasterCard, American Express. CCD's $5 extra. Minimum order $15. 
No billing or unpaid PC's. California residents add sales tax. Shipping costs in US 
included in price. Foreign orders, pay in US funds on US bant<, include for handling 



n Installation Manual for fig-FORTH, 

Source Listings of fig-FORTH, for specific CPU's and connputers. The 
Installation Manual is required for implementation. Each $1 5 

□ 1802 □ 6502 □ 6800 □ AlphaMicro 

□ 8080 □ 8086/88 □ 9900 □ APPLE It 

□ PACE □ 6809 □ NOVA □ PDP-1 1/LSI-1 1 

□ 68000 n Eclipse □ VAX □ Z80 

and shipping by Air: $5 for each item under $25, $1 for each item between $25 and 
$99 and $20 for each item over $100, Atl prices and products subject to change or 
withdrawal without notice. Single system and/or singie user license agreement 
required on some products DEALER & AUTHOR INQUIRIES INVITED 



MOUNTAIN VIEW PRESS, INC. 

PO BOX 4656 MOUNTAIN VIEW, CA 94040 (415) 961-4103 
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FORTH Dimensions solicits editorial 
material, comments and letters. No respon- 
sibility is assumed for accuracy of material 
submitted. Unless noted otherwise, material 
published by the FORTH Interest Group is in 
the public domain. Such material may be re- 
produced with credit given to the author and 
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est Group, P.O. Box 1105, San Carlos, CA 
94070. 



Letters to the Editor 



A Friend in Need 

Sirs: 

I need help. I have used my com- 
puter (Kaypro 10) for word processing 
only. I was not interested in learning a 
language till I began reading about 
Forth in the journals, I picked up Start- 
ing Forth and leafed through it. I said 
to myself, **I can learn this!" I bought 
the book and ordered the language 
disk. The computer store ordered SL5 
from SuperSoft. I started to learn the 
language using Starting Forth as my 
documentation. I soon discovered that 
they were not mated to one another. 
Valiantly, I struggled with the six pages 
of SuperSoft tutorial, then back to 
Starting Forth, trying to change the 
words that wouldn't work. After many 



hours, I gave up. After all that, here is 
my question; 

What should I buy, as a beginner, 
that would let me use Starting Forth as 
my documentation? 

Awaiting your information, I am 

Yours sincerely, 

Duane Windemiller 
367 Ocean Boulevard 
Hampton Beach, NH 03842 



Breakpoint Revisited 

Dear Editor, 

The breakpoint tool described in 
Forth Dimensions (Vol. V, No, 1) 

(Continued) 



Editorial 

Fifth Forth Fest 



Another October has come and 
gone, and with it the Fifth Annual 
Forth Convention. Hats off to the FIG 
board of directors, especially to Robert 
Reiling and Gary Feierbach, who 
created an informative, streamlined 
event for the 1200 attendees and the 
thirty exhibitors. It is a sign of the ma- 
turation of the Forth community and 
of the diligence of the organizers that 
the convention earned coverage in the 
public media as well as in the trade 
press. 

At each of the annual conventions, 
one FIG member is named **Figgie of 
the Year," The recipients are those 
who have made exceptional 
contributions to Forth and its growth 
in the industry. This year, the whimsy 
of the title was surpassed only by the 
surprise of John D. Hall when his 
name was announced. John's work as 
coordinator of local chapters of the 
Forth Interest Group has been diligent, 
thorough and unselfish. Through his 
efforts, many chapters have been 
guided into formation and now serve 
the world-wide Forth programming 
community. This has greatly enhanced 



Forth's growth and status. Thanks, 
John, and congratulations! 

Mountain View Press, a major ven- 
dor of Forth products, presented a 
prize at the convention this year. The 
company had held a contest for those 
who receive its newsletter. The 
challenge was to describe Forth in 
twenty-five words or less for non-Forth 
people. Charles Moore judged the 
entries and had this to say before 
announcing the winner: '*Forth resists 
analysis. It's a right-side of brain func- 
tion Language is practical. Forth 

is a language, not an operating 
system." The winner of the contest was 
Michael Ham of Iowa City, Iowa. His 
entry reads, "Forth is Hke the Tao: it is 
a Way, and is realized when followed. 
Its fragility is its strength; its simplicity 
is its direction." 

Your editor spent the two-day meet- 
ing with authors, authors-to-be and 
readers. I hope we learned a lot about 
each other. From what I saw and 
heard, all of us can look forward to a 
great deal of exciting material in 
upcoming issues of Forth Dimensions. 
As the magazine grows, so does the 



number of ways in which we can serve 
you. Especially vital is that this publi- 
cation always remain an open forum. 
There must always be room for you to 
voice your support and concerns, not 
just of the magazine, but about the 
language and community in which we 
are immersed. 

A small commercial: the ways we 
can serve you are limited only by our 
resources. Help Forth Dimensions and 
the Forth programming community to 
grow by joining as an individual 
member of the Forth Interest Group. 
Sure, it's nice to share reading 
materials. But why not get your own 
membership and begin sharing this 
magazine with new people who haven't 
yet been exposed to Forth. Besides, 
aren't you tired of getting that well- 
thumbed issue after everyone else has 
read it? 

In the next issue we will bring tidings 
from the November FORML con- 
ference. Until then, accept our heart- 
felt wishes for a pleasant holiday sea- 
son and a new year of peace. 

^Martin Ouverson 
Editor 
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Multiuser/Multitasking 

for 8080, Z80, 808.6 




TaskFORTH™ 

The First 
Professional Quality 
Full Feature FORTH 
System at a micro price* 

LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 

Unlimited number of tasks 

^ Multiple thread dictionary, 
superfast compilation 

^ Novice Programmer 
Protection PackageiM 

^ Diagnostic tools, quick and 
simple debugging 

^ Starting FORTH, FORTH-79. 
FORTH-83 compatible 

iJr Screen and serial editor, 
easy program generation 

^ Hierarchical file system with 
data base management 

• Starter package $250. Full package $395. Singte 
user and commercial licenses available. 

If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 

Available on 8 Inch disk 
under CP/M 2.2 or greater 
also 

various 51/4*' formats 
and other operating systems 

FULLY WARRANTED, 
DOCUMENTED AND 
SUPPORTED 

MKUB^l DEALER i^HHi 
llimilfflirlnT I INQUIRES 

.^P Md I invited «»"ilP^ 

Shaw Laboratories, Ltd. 

24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 



needs to be slightly modified for ver- 
sions of Forth, such as MVP FORTH, 
that use a vectored INTERPRET. This 
results in three levels of return instead 
of two in going into and leaving the 
new interpreter. In the enclosed code, I 
used RESUME because GO has a dif- 
ferent function in MVP FORTH (it is a 
code word that permits one to directly 
load the program counter). The chang- 
es are to replace the four in line seven 
with six, and to add an additional R> 
DROP in line eleven (line numbers refer 
to the original listing on page nineteen 
of Forth Dimensions). The version for 
my Forth is shown in figure one. 



File Fan 

Dear Sir: 

After laying off for a couple of 
years, I have rejoined FIG; and I just 
treated myself to an (extended) evening 
of catching up on Volumes III and IV 
of Forth Dimensions, So many (mostly 
pleasurable) reactions are reverberat- 
ing in my mind that it has taken an act 
of utmost discipline to restrict, my com- 
ments to the few below. 

First, let me say that I am not a 
Forth fanatic. I have been driven some- 
what reluctantly to Forth after careful 
study of a number of languages for 
personal computing, including, most 
recently, C. 

The most important issue on my 
mind is that of operating systems. I 
see, over a two-year period, some sig- 
nificant evolution away from the Forth 



screen system and towards the file han- 
dling systems of the host environment, 
e.g, CP/M. This evolution is being 
driven by the vendors, and my impres- 
sion is that it is being quietly resisted by 
FIG. 

As a personal computerist, I do not 
see this as primarily an issue of being 
able to share disk space with the resi- 
dent system. Rather, for me, it is sim- 
ply an issue of being able to use with 
Forth the power of whatever operating 
system is available. 

Editors and word processors are 
among the programmer's most per- 
sonal tools. On the face of it, there just 
can be no comparison between a Forth 
screen-based editing system and a good 
file-based system. On top of that, there 
is a whole industry out there devoted to 
developing editors and word proces- 
sors; and many of us own several ex- 
amples of each, some of which we find 
extremely useful. 

The design of my personal Z-80, 
CP/M Forth system includes file vari- 
ables for sequential and random CP/M 
files, and allows an arbitrary number 
of open channels. It also includes a file 
control disk stack which makes it pos- 
sible for any Forth source file to load 
another, to any depth, and pick up 
where it left off. Some of the possibili- 
ties this opens up for the organization 
of libraries should be clear. 

Let me make a radical proposal. 
Abandon the screen system and, in 

(Continued on page 28) 



OK 

162 LIST 
SCR #162 

< BREAK GO (RESUME) FORTH DIMENSIONS VOL 5 # 1 ) 

1 VARIABLE CHECK ( COMPILE BREAK INTO ; DEF ) 

2 : BREAK CR BREAK S== " . S CR . " R== " < R.N > 

3 RPta 6 - CHECK ! BLK ! BEGIN QUERY INTERPRET aok " CR 
4- AGAIN ! 

: RESUME < GO IN FD ) RP@ CHECK @ = IF R> DROP R> DROP R> DROP 

6 ELSE . *' can't resume " QUIT THEN ; 

7 

8 

9 
10 
U 
12 
13 
14 
15 
OK 



Figure One 
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Why Novices Use 
So Many Variables 



Michael Ham 
Iowa City, Iowa 

Forth programmers often find 
themselves tutoring Forth novices. The 
more experienced the tutors, the harder 
it is for them to recall their own early 
difficulties and to understand the 
sources of the beginner's problems. 
Without knowing the source of the 
problem, one cannot attack it at its 
root, and instead must correct the er- 
rors one by one, as they occur. This 
paper discusses a possible source of a 
common novice error: using unneces- 
sary variables. 

I recently found a conceptual block 
when I examined the reasons I had 
coded a program awkwardly (see list- 
ing). The Usted definition works — it 
does, in fact, display the primes less 
than 1000 — but an experienced Forth 
programmer will instantly see that 
some changes are in order: 

1. Eliminate the variable PRIME. 

2. Replace 2 PRIME I in line five 
with 1. 

3. Replace O prime ! in line eight 
with DROP 0. 

4. Eliminate 1 PRIME ! in line nine. 

5. Eliminate line eleven altogether. 



The word still works with these 
changes, but more efficiently. (The ac- 
tual difference in execution time is one- 
tenth of a second on my Forth: 29.0 vs. 
28.9 seconds.) What caused the super- 
fluous code? 

I discovered the redundancies by 
chance: I picked up the listing two or 
three days after writing it, and on 
glancing at it, suddenly saw that the 
careful replacement of the two by a one 
(line eleven) was unnecessary, since 
two would serve as a true flag as well as 
one. 

But why had I even put a two into 
PRIME in the first place? Its origin 
seemed to lie in my unexamined feeling 
that, on coming out of the loop, it 
would be good to know how I discov- 
ered the nature of the number: from 
within the loop (PRIME contains zero or 
one), or by exhausting all possible 
divisors (PRIME contains two). Perhaps 
I also had wanted to avoid declaring, 
before even starting the loop, whether 
the number was prime or not: two was 
a way of not taking a position. 

I decided that I might as well leave 
the two on the stack as a true flag — 
and, given that, no reason it shouldn't 
be a one from the start. So I dropped 



DUP 2 □ IF DROP 1 THEN 

from Hne eleven, and in line five 
initialized PRIME with 1 prime !. 

Then I realized that when exiting the 
loop early (via one of the LEAVEs), I 
was fetching from PRIME the value just 
put into it. What was going on? 
Looking at the code again, I saw that 
PRIME was unnecessary, and that all the 
changes listed above should be made. 

Why had I created PRIME in the first 
place? I thought about it and conclud- 
ed that I had not fully understood 
Brodie's cautionary remark in Starting 
Forth (page ninety-three) about mak- 
ing the stack effect of a word be the 
same, regardless of which part of the 
word was executed. I had thought that 
he meant you should be careful about 
the stack effect only to prevent stack 
underflow or overflow, which would 
crash the program. 

It is that, of course, but with this ex- 
ample I saw something more — some- 
thing undoubtedly so famiUar to those 
who are used to Forth and the stack 
that they accept it unthinkingly: if 
words keep properly to themselves, 
using the stack only for their expected 
input and output, and cleaning up after 
themselves, then they can be looked on 
as sealed systems, having no effect on 
anything that might already be on the 
stack but outside their sphere of in- 
fluence. 

In my prime number routine I had 
pulled the flag off the stack and tucked 
it into a variable to keep it safe. No 
telling what might happen with all that 
thrashing about on the stack. The flag 
might get hit by a wild shot or ricochet. 
So off it went for safekeeping, to be 
fetched from its cubbyhole when need- 
ed. 

I immediately recalled another ex- 
ample of the same behavior in a pro- 
gram to compute quartiles. The pro- 
gram collects the scores for each 
group, sorts them, computes the quar- 
tiles and prints the results, cycling in an 



( EXAMPLE OF BEGINNER CAUTION M Ham 8/23/83 ) 

1 

2 VARIABLE PRIME ( START zeroes system clock; TIME prints time) 



4 : PRIMES ( — ) CR START 

5 1001 1 DO 2 PRIME ! 

6 501 2 DO J I > 

7 J I MOD 0= 

8 AND IF PRIME ' LEAVE THEN 

9 J I - IF 1 PRIME ! LEAVE THEN 

10 LOOP 

11 PRIME li? DUP 2 = IF DROP 1 THEN 

12 IF I 5 -R THEN 

13 LOOP 

14 TIME ; 
15 



Listing 



I 



Volume V, No. 4 



5 



FORTH Dimensions 



endless loop to get the figures for the 
next group. After every eight groups I 
wanted to do a form feed to avoid 
printing on the perforation. At first I 
had put the count of the groups in a 
variable, once again to keep it safe 
from all the activity taking place on the 
stack: gathering data, sorting, comput- 
ing, printing. 

But then I had seen that the sequence 
of words constituted a closed system, 
and the count could rest safe and 
sound on the stack the whole time, to- 
tally unaware of the storm of activity 
raging right over its head. The count 
could go on the stack at the beginning 
of the loop, and remain through the 
complete routine for each group. At 
the end of each, the count would 
emerge, back on top of the stack, not a 
hair out of place. 

It still somewhat amazes me that 
merely by making sure words practice 



good stack hygiene you can be so con- 
fident about what is happening on the 
stack. If you investigate the unneces- 
sary variables that beginning Forth 
programmers use, I bet you'll find 
them unaccustomed to using a stack 
and nervous about unforseen by-pro- 
ducts of all that frantic stack activity. 
They become overprotective and use a 
mechanism familiar from their exper- 
ience with other programming langu- 
ages to shield their counts and inter- 
mediate results from possible harm. 
They see the whirlwind of activity that 
will descend on the stack, but they fail 
to recognize that it is harmless, en- 
closed within the inviolable sphere 
defined by the words' net stack effect. 

You need only convince novices that, 
if they write their definitions with a 
careful eye on the stack effects, they 
can drop enormous clusters of words 
on top of a lonely little number on the 



stack and, after the words have done 
their work and gone and the dust has 
settled, that number will stand there, 
once more at the top of the stack, ab- 
solutely unharmed. 



Ver. 



2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 

1980). Compare the many advanced features of FORTH— 

79 with the FORTH you are now using, or plan to buy! 
FEATURES OURS OTHERS 

79-Standard system gives source portability, YES 

Professionally written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 

Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with ov^.'n manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) $ 99.95 
ENHANCEMENT PACKAGE FOR V.2 

Floatmg point & Hi-Res turtle-graphics $ 49.95 

COMBINATION PACKAGE $139.95 
(CA res. add 6% tax: COD accepted) 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A.,CA 90025 (213)821 4340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 





Version 2 For Z-80, CP/M (1.4 & 2.x), 
& Northstar DOS Users 
The complete professional software system, that meets 
ALL provisions of the FORTH-79 Starxiard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 



FEATURES 



OURS OTHERS 



79-Standard systenn gives source portability. YES 

Professionally written tutorial & user manual. 200 PG. 

Screen editor with user<ief tnable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 
BDOS, BIOS & console control functions (CP/M). YES 
FORTH screen files use standard resident 

file format. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YES 

APPLE I I/H+ version also available. YES 

Affordable! $99.95 
Low cost enhancement options; 

Floating-point mathematics YES 
Tutorial reference manual 
50 functions (AM951 1 compatible format) 

Hi-Res turtle-graphics (NoStar Adv. only) YES 

FORTH-79 V.2 (requires CP/M Ver. 2.x). 
ENHANCEMENT PACKAGE FOR V.2: 

Floating point 
COMBINATION PACKAGE (Base & Floating point) 

(advantage users add $49.95 for Hi-Res) 

(CA. res. add 6% tax; COD & dealer inquiries welcome) 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A., CA 90025 (213) 821-4340 
Specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 



$99.95 

$ 49.95 
$139.95 
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Yet Another Number Utility 



David McKibbin 
Timonium, Maryland 

In any program or environment, 
there is typically one number base that 
predominates. Just as typically, there 
are also times when another number 
base for input or output would be 
clearer or easier. The following word 
set allows for these single occurrences 



of numbers which are not in the cur- 
rent number base and can be used in 
either compile or execution mode. 

There is one defining word (BASE.) 
for the class of words that output in the 
various number bases, and another 
(BASE') for the class of words that in- 
put. I still use < BUILDS in my system as 
the complement to DOES>. For those 
who don't, replace the < builds with 



30 

( NUMBERS - 

: BASE, 

< BUILDS 

2 BASE. B. 

8 BASE, 0. 

10 BASE. X, 

16 BASE, H. 



BASE- 



# 31 

( NUMBERS 



BASE=" 



SCR 

1 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



SCR 

1 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



OK 

DECIMAL 1234 OK 
DUP B- 10011010010 OK 
DUP 0- 2322 OK 
1234 OK 
4D2 OK 



DOES> BABE © >R 



DTM 03Aug81 ) 

( base print defining word *) 
@ BASE ! U. R> BASE ! 5 

( bi nary pri nt *) 

( octal pri nt *) 

( decimal print *) 

( hex print ♦) 



B% 0-, X' 



DTM 



25Feb82 ) 



: BASE-^ 

<BUILDS , IMMEDIATE 
DOES> BASE e >R d BASE ! 

BL WORD CONVERT 2DR0P 

R> BASE ! ; 

2 BASE-^ B' 

a BASE" 
10 BASE^ X^ 
16 BASE' H' 



C COMPILE 3 LITERAL 



( binary input *) 

( octal i nput ♦) 

( decimal input *) 

( hex input ♦) 



DUP X 
DUP H 
- 1234 OK 
H' 1234 . 
X^* 1234 , 
□ 1234 . 
B^" 1000101 
: strip-parity 
193 strip-parity 



4660 OK 
1234 OK 
668 OK 
, 69 OK 



CREAT£. Words defined by BASE, and 
BASE' have their new, temporary base 
stored in their parameter fields. When 
executed, they simply fetch the current 
number base and save it on the return 
stack, set BASE to the new value stored 
in their parameter field, perform the 
input or output, and finally restore the 
old base from the return stack. 
Additionally, words defined by BASE' 
are made immediate so that they can be 
used inside colon definitions. For me, 
this has been very useful inside 
DO...IjOOP where the count is clearer if 
expressed in decimal but the body of 
the loop contains bit masks, e/c, that 
are more clearly expressed in hex. 

Inside BASE' the code fragment 

BL WORD CONVERT 2DR0P 

is used to get a sixteen-bit number from 
the input device to the stack. Then 
LITERAL is used either to do nothing (in 
execution mode) or compile the 
number as a literal (in compile mode). 
This is presuming upon the **state 
smartness" of literal. With the 
current move away from state 
smartness, I recommend checking your 
implementation of LITERAL. 

In writing programs, I will usually 
leave the current number base in 
DECIMAL and use these words for any 
departures from that. This has solved 
several recurring problems. First, when 
I see a number, I know that it is in de- 
cimal if not preceded by a modifier. I 
don't have to reverse-scan the code 
looking for the last base change. Se- 
cond, I can painlessly insert hex bit 
masks regardless of the current number 
base. And third, I can enter numbers in 
whatever base most clearly conveys my 
intent or purpose without bulking up 
the code with explicit HEX, DECIMAL or 
OCTAL words. 



7F AND 
65 OK 



OK 



00: 00: oo oo/oo/oo 



Sygnetron FORTH 
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80aO/Z80 FIG-FORTH for CP/M St CDOS systems 
FULL-SCREEN EDITOR for DISK & MEMORY 

$50 saves you keying the FIG FORTH model and many published FIG FORTH screens onto diskette and 
debugging them. You receive TWO diskettes (see below for formats available). The first disk is readable by 
Digital Research CP/M or Cromemco CDOS and contains 8080 source I keyed from the published listings of 
the FORTH INTEREST GROUP (FIG) plus a translated, enhanced version in ZILOG Z80 mnemonics. This 
disk also contains executable F0RTH.COM files for Z80 & 8080 processors and a special one for Cromemco 
3102 terminals. 

The 2nd disk contains FORTH readable screens including an extensive FULL-SCREEN EDITOR FOR 
DISK & MEMORY. This editor is a powerful FORTH software development tool featuring detailed terminal 
profile descriptions with full cursor function, full and partial LINE-HOLD LINE-REPLACE and LINE- 
OVERLAY functions plus line insert/delete, character insert/delete, HEX character display/update and 
drive-track-sector display. The EDITOR may also be used to VIEW AND MODIFY MEMORY (a feature not 
available on any other full screen editor we know of.) This disk also has formatted memory and I/O port dump 
words and many items published in FORTH DIMENSIONS, including a FORTH TRACE utility, a model data 
base handler, an 8080 ASSEMBLER and a recursive decompiler. 

The disks are packaged in a ring binder along with a complete listing of the FULL-SCREEN EDITOR and a 
copy of the FIG-FORTH INSTALLATION MANUAL (the language model of FIG-FORTH, acomplete glossary, 
memory map, installation instructions and the FIG line editor listing and instructions). 

This entire work is placed in the public domain inthemannerandspiritof the work upon which it Is based. 
Copies may be distributed when proper notices are included. 

USA Foreign 

□ FIG-FORTH & Full Screen EDITOR package AIR 

Minimum system requirements: 

80x24 video screen w/ cursor addressability 

8080 or Z80 or compatible cpu 

CP/M or compatible operating system w/ 32K or more user RAM 

Select disk format below, (soft sectored only) $50 $65 

□ 8" SSSD for CP/M (Single Side, Single Density) 

Cromemco CDOS formats, Single Side, S/D Density 

□ 8" SSSD □ 8" SSDD □ SVa" SSSD □ SVa" SSDD 

Cromemco CDOS formats. Double Side, S/D Density 

□ 8" DSSD □ 8" DSDD □ 5Va" DSSD □ SVa" DSDD 

Other formats are being considered, tell us your needs. 

□ Printed Z80 Assembly listing w/ xref (Zilog mnemonics) $15 $18 

□ Printed 8080 Assembly listing $15 $18 

TOTAL $ 

Price includes postage. No purchase orders without check. Arizona residents add sales tax. Make check 
or money order in US Funds on US bank, payable to: 

Dennis Wilson c/o 
Aristotelian Logicians 
2631 East Pinchot Avenue 
Phoenix, AZ 85016 
(602) 956-7678 
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Manufacturing Cost Program 



Marc Perkel 
Springfield, Missouri 

This program demonstrates how 
simply cost analysis can be done in 
Forth. In this example. Forth is used 
not only as a compiler, but as a job 
control language. In other words, 
source screens do not have to contain 
code to be compiled. They may contain 
lists of commands to be executed. This 
execution replaces typing the same 
commands from the keyboard. In this 





?n 81 (*) 129 







< Friut Basket Costs ) 


1 

2 


.34 PRICE 


APPLES 


3 


.26 PRICE 


BANANAS 


4 


.47 PRICE 


ORANGES 


5 


.03 PRICE 


CHERRIES 


6 


.54 PRICE 


GRAPEFRUIT 


7 


.32 PRICE 


PEARS 


8 


.29 PRICE 


PEACHES 


9 


.02 PRICE 


GRAPES 


A 
B 


2.45 COST 


BASKET 


C 


1.08 COST 


PACKAGING 


II 


3.67 COST 


SHIPPING 


E 


1.00 COST 


HANDLING 


F 






^een 82 (*) 130 







( Fruit Basket materials ) 


1 
2 


5 PEARS 




3 


8 ORANGES 




4 


3 GRAPEFRUIT 


5 


2 DOZEN CHERRIES 


6 


3 DOZEN GRAPES 


7 


6 PEACHES 




8 


4 APPLES 




9 


7 BANANAS 




A 






B 


BASKET 




C 


SHIPPING 




D 


PACKAGING 




E 


HANDLING 




r 







way, disk files of command strings to 
be executed can be changed at will. 

What the Program Does 

This program calculates the cost of 
manufacturing a fruit basket. The user 
first compiles screen eighty, which is 
the program. Then the user types the 
word PRICES, which causes the prices 
to compile. Then the user types HGURE 
FRUIT-BASKET, which causes the cost of 
the fruit basket to be printed on the 
screen. Any time the user wants to 



change prices, he brings in the editor 
and types over the old data. Or, if the 
user wants to change the materials, he 
likewise types in the new materials by 
using the editor. 

How the Program Works 

The variable TOTAL accumulates the 
total costs. .MONEY is used to print the 
total in dollars and cents format. + TO- 
TAL adds the thirty-two-bit number on 
top of the stack to TOTAL, price is a 
defining word; at compile time, it cre- 
ates a definition (containing the price) 
that, when executed, multiplies the 
price by the number on the stack and 
adds it to the total. For example, 34 
PRICE APPLES creates the word APPLES 
and assigns the value .34 each. When 4 
APPLES executes, apples multiplies 
four times thirty-four cents and adds it 

to TOTAL. 

COST works like PRICE except that it 
doesn't multiply. It assumes a quantity 
of one. DOZEN merely multiplies the 
quantity by twelve. LOCATES is a defin- 
ing word used here as a crude disk dir- 
ectory. LOCATES creates a word (e.g. 
PRICES) and stores 129 into it. When 
PRICES executes, it loads screen 129. 
The word FIGURE executes the 
following word first and displays the 

TOTAL. 

The interesting thing to note is that 
the words created by PRICE, COST and 
LOCATES become part of the Forth 
vocabulary. Thus, typing any word 
created by LOCATES will cause a prede- 
termined screen to load. Any word 
created by COST will cause an amount 
to be added to total, and likewise with 
PRICES. The Forth outer interpreter is 
used as a big, text-driven case 
statement and eliminates the need to 
write one as part of the program. 

In conclusion, I challenge anyone to 
write such an elegant program in any 
other language. This program is in use 
by a local manufacturer, and I hope 
others will expand on this unusual 
technique in real-world applications. 



Screen 80 (*) 128 

( Pricing Prosfrsm ) X TASK f DECIMAL 
1 

2 2'v»ARIABLE TOTAL 
3 

4 : ♦MONEY <* * * ASC . HOLD *S ASC * HOLD *> TYPE SPACE r 

5 : +TOTAL TOTAL 2f» D+ TOTAL 2! J 

6 : PRICE CREATE f f DOES> 20 >R OVER U* ROT R> * + +TOTAL f 

7 : COST CREATE f r mES> 20 +TOTAL 5 

8 J LOCATES CREATE f DOES> & LOAD J 

9 : DOZEN 12 * f 

A : FIGURE 0. TOTAL 2! CC0MPILE1 ' EXECUTE TOTAL 20 ♦MONEY ? 
B 

C < Directory ) 

D 129 LOCATES PRICES 

E 130 LOCATES FRUIT-BASKET 

p- 
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Menu-Driven Software 



130 

( Sample Directory Screen for MENU jib October 12, 1983 ) 

1 

2 DECIMAL ( Header at top of page ) 

3 CR DisK Directory" 20 Spaces October 12, 1983" CR 

4 CR DisK Menu:" 24 SPACES Drive " DR @ . CR CR 

5 

6 ( TYPE out directory according to MUMODE ) 

7 

8 M" 12 19 Assembler (6502)" 

9 M" 131 131 Directory Menu" M" 22 23 DisKing" 

10 M" 20 21 Documentor" M" 25 39 Editor" 

11 M" 180 185 permanent Extensions" 

12 M" 10 11 Startup Loader" 
13 

14 
15 



131 

{ Non-standard words used for MENU jib October 12, 1983 ) 

1 FORTH DEFINITIONS DECIMAL 
2 

3 VARIABLE DR 
4 

5 ( DR is a variable that contains the drive number last ) 

6 ( specified by DRO or DRl ) 
7 

8 : DRO EMPTY-BUFFERS DRO DR ! ; ( — ) 

9 : DRl EMPTY-BUFFERS DRO 1 DR ! ; ( — ) 
10 

11 ( Adjust a number between Low and High values, inclusive ) 

12 : LIMITS ROT MIN MAX ; ( n low high n ) 

13 : PPGE OC EMIT ; { PA3E should clear the screen ) 
14 

15 — > 



132 

( MENU variables ?NUMB jib October 12, 1983 ) 

1 

2 DECIMAL ( number storage arrays ) 

3 

4 VARIABLE MNUl 52 ALLOT MNUl 52 BLANKS 

5 VARIABLE MNU2 52 ALLOT MNU2 52 BLANKS 
6 

7 ( Array Pointer Mode ) 

8 

9 VARIABLE MP VARIABLE MUMODE 

10 

11 — > 

12 

13 

14 

15 



John Bowling 
Phoenix, Arizona 

Menu-driven software has always 
been easier for all but the most sophis- 
ticated of users. The programmer puts 
a list on the screen with a brief descrip- 
tion of the option, along with a key 
code. The user enters the simple key 
code, and is off and running in a new 
section of the program. If the new sec- 
tion has options, up comes another 
menu. If the purpose of the software 
requires it, a menu tree can have hun- 
dreds of levels, with some menus able 
to jump tens of levels per key code. 

Menus make a user's job very easy, 
but can be a headache for a program- 
mer. They require that the software 
write an entire page out to a terminal, 
pick up a user's response, index into a 
vector table, and jump to a new section 
of code. If the software is very large, 
overlays or some type of virtual me- 
mory scheme may be required. Ideally, 
the language selected should support 
menus without having to code each one 
separately. Using a subroutine for the 
menu code requires passing a pointer 
to the character data for the terminal, 
and a pointer to the vector table. 
Somewhere in memory reside pages of 
text for the terminal and more pages of 
vector tables. 

There is a simple solution to the 
problem in Forth. The Forth listing 
shown here is quite simple, and is de- 
signed to work with any standard FIG- 
Forth system. The two primary words, 
M" and MENU-UP, are supported by a 
mode variable (MUMODE), a pointer 
variable (MP), and two arrays (MNU1 
and MNU2). MENU-UP controls the use 
of M" by setting MUMODE true and sets 
MP to zero. 

When a screen is loaded and an M" is 
encountered, M" checks MUMODE. If 
MUMODE is true, two numbers are ta- 
ken from the input stream (the disk), 
and saved in the array positions point- 
ed to by MP. MP is incremented once 



Star light- FORTH OSI V si. 10 
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133 
( 
1 
2 

3 : 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



MENU M" 



' MUMODE @ IF 

( Print out a code 
MP @ 65 + 

. 52 EMIT 2 SPACES 
MP @ DUP 2* DUP 
( picKup the numbers following M' 
32 WORD HERE NUMBER DROP 
32 WORD HERE NUMBER DROP 
1+ 26 LIMITS MP i THEN 
34 WORD HERE COUNT T^PE CR 



jib October 12, 1983 ) 

( Menu display function 
( Save numbers 
letter for tne MENU ~ A> 
( Adjust to Alpha 
( Print out Menu number 
{ Adjust array pointer 
and place them in array 
SWAP MNUl + I ( Pull # 
SWAP MNU2 + i ( Pull # 
Increment pointer 
( Type remainder 



— > 



134 

( MENU MENU-UP 
1 



10 
11 

12 --> 
13 
14 
15 



MENU-UP 



135 

{ MENU Sample uses 
1 



EM 



6 : LM 



DIR 



( M" should be used as you would use ) 



jib October 12, 1983 ) 
( Set variables and printout the specified screen ) 



MP 1 1 MUMODE 1 LOAD MUMODE i CR 

( Request a number from the user ) 
Your Selection {1 to " MP @ 65 + . }? " 

( Adjust number within LIMITS ) 
KEY 65 - MP @ 1 - LIMITS 2* DUP 

( Call saved numbers from arrays ) 
MNU2 + @ SWAP MNUl + @ MP i ; 



jib October 12, 1983 ) 



( Sample uses of MENU menu -> editor ) 

PA3E Edit Menu" 130 MENU-UP EDITOR E ; 



( menu -> compiler ) 
PAGE Load Menu" 130 MENU-UP SWAP DROP LOAD ; 
7 
8 
9 
10 
11 

12 ;S ( See text about EDITOR modifications) 

13 ( Replace all 130's with the screen number you* select for ) 

14 ( your directory screen ) 
15 



( Print out MENU screen without saving numbers ) 
( M" worKS just as ." does ) 
PAGE MUMODE ! MP i 130 LOAD ; 



for each execution of M" when mu- 
MODE is true. Following the extraction 
of the two numbers, a letter corre- 
sponding to MP value plus sixty-five is 
printed, followed by > and the re- 
mainder of the data in the input stream 
up to the next occurrence of 

After the screen load is completed, 
the user is requested to press a key be- 
tween A and MP value plus sixty-five. 
This upper letter, and the maximum 
value in MP, is limited by the space 
available in the arrays, Z or twenty-six. 
This limit is enforced in M" by MP, and 
in MENU-UP by the letter keyed in. 

There are three sample methods of 
using the menu function. DiR prints the 
specified screen as if M" were 
equivalent to LM will load starting at 
the screen number in MNUl, pointed to 
by the pressed key. EM calls the editor 
after displaying the menu. 



I use a full-screen editor which 
employs control keys and function 
keys to perform various functions. It 
uses two variables called first and 
LAST that contain the limit values for 
screen numbers that are allowed to be 
edited. When using em, the values on 
the directory screen are placed into 
FIRST and LAST. Control-Q will move 
to the previous screen, but not prior to 
FIRST. Control-W will move to the next 
screen, but not after LAST. Function 
key five (F5) will move to the FIRST 
screen, and F6 moves to the LAST. 
EDITOR sets to vocabulary and E enters 
the editor. 



(See figures on page 13) 
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FORTH for Z-80® , 8086, 68000, and IBM® PC 



FORTH Application Development Systems include interpreter/compiler with virtual memory management and 
multi-tasking, assembler, full screen editor, decompiler, utilities, and 130+ page manual. Standard random ac- 
cess files used for screen storage, extensions provided for access to all operating system functions. 



Z-80 FORTH for CP/M® 2.2orMP/Mtl $ 50.00 

8080 FORTH for CP/M 2.2 or MP/M II $ 50.00 

8086 FORTH for CP/M-86 or MS-DOS $100.00 

PC/FORTH^" for PC-DOS, CP/M-86, or CCPM $100.00 

68000 FORTH for CP/M-68K $250.00 



83 • Standard version of all application development systems available soon. All registered users will be entitled 
to software update at nominal cost. 

FORTH + Systems are 32 bit implementations that allow creation of programs as large as 1 megabyte. The en- 
tire memory address space of the 68000 or 8086/88 is supported directly for programs and data. 



PC/FORTH + for PC-DOS or CP/M-86 $250.00 

8086 FORTH + for CP/M-86 $250.00 

68000 FORTH + for CP/M-68K $400.00 

Extension Packages for FORTH systems 

Software floating point (Z-80, 8086, PC only) $100.00 

Intel 8087 support (8086, PC only) $100.00 

AMD 9511 support (8086, Z-80 only) $100.00 

Color graphics with animation support (PC only) $100.00 

Symbolic interactive debugger (PC only) $100.00 

Cross reference utility $ 25.00 

PC/GEN^^ (custom character sets, PC only) $ 50.00 

PC/TERM communications program for PC and Smartmodem $ 60.00 

Hierarchical file manager $ 50.00 

B-tree index manager $125.00 

B-tree index and file manager $200.00 

QTF+ Screen editor and text formatter by Leo Brodie, 

for IBM PC with IBM or Epson printer $100.00 



Nautilus Cross Compiler allows you to expand or modify the FORTH nucleus, recompile on a host computer for 
a different target computer, generate headerless and ROMable code. Supports forward referencing. Produces 
executable image in RAM or disk file. No license fee for applications. Prerequisite: Application Development 



System for host computer. 

Hosts; Z-80 {CP/M 2.2 or MP/M II), 8086/88 (CP/M-86 or MS-DOS), IBM PC (PC-DOS or CP/M-86). 68000 (CP/M-68K) 
Targets: 8080, Z-80, 8086/88, 6502, LSI-11, 68000. 1802, Z-8 

Cross-Compiler for one host and one target $300.00 

Each additional target $100.00 

AUGUST A"^*^ ADA subset compiler from Computer Linguistics, for Z-80 computers under CP/M 2.2 $ 90.00 

LEARNING FORTH computer-assisted tutorial by Laxen and Harris for CP/M, includes Brodie's 

"Starting FORTH" (8" format only) $ 95.00 

Z-80 Machine Tests Memory, disk, printer, and console tests with all source code in standard Zilog 
mnemonics $ 50.00 



8080 and Z-80 application development systems require 48 kbytes RAM and 1 disk drive, 8086 and 68000 require 64 kbytes. Prices include shipping by UPS or first class 
mail within USA and Canada. California residents add appropriate sales tax. Purchase orders accepted at our discretion. Master Charge and Visa accepted. 

Disk formats avaitable: Standard CP/M 8" SSSD, Northstar 5V4 " QD, Micropolis 5Va " QD, Sage 5% " DD. Apple 5% ", Victor 9000 5% '\ Kaypro 5V4 ", Osborne 5'A " DD, 
Micromate 5V4 ", IBM PC 5v, ", Standard MS-DOS 5V4 " SSDD. Most other formats can be special ordered. 



Laboratory Microsystems, Inc. 

4147 Beethoven Street 
Los Angeles, OA 90066 
(213) 306-7412 

2-80 is a registered trademark of Zilog, Inc. Augusta is a trademark of Computer Linguistics 

CP/M is a registered trademark of Digital Research, Inc. dBASE II is a trademark of Ashton-Tate 
IBM IS a registered trademark of International Business Machines Corp. PC/FORTH and PC/GEN are trademarks of Laboratory Microsystems Inc. 
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DisK Directory 

DisK Menu: Drive 

A> Assembler (6502) 

B> Directory Menu 

C> DisKing 

D> Documentor 

E> Editor 

F> permanent Extensions 

G> Startup Loader 

Your Selection {A to G}? & 



StacK after Key press 

TOS 10 11 BOS 

OK 



Sample of 130 DIR 



DisK Directory 

DisK Menu: Drive 



12 19 Assembler (6502) 
131 131 Directory Menu 

22 23 DisKing 

20 21 Documentor 

25 39 Editor 
180 185 permanent Extensions 

10 11 Startup Loader 
OK 



Sample of 130 MENU-UP 



Inner Access holds 
the key to your 
software solutions 




When in-house staff can't 
solve the problem, 
make us a part of your team. 
As specialists in custom designed 
software, we have the l<now-how 
to handle your application 
from start to finish. 

Call us for some straight talk 
about: 

■ Process Control 

I Automated Design 

■ Database Management 

■ System Software & Utilities. 

■ Engineering 

■ Scientific Applications 

■ Turn Key Systems 

n Inner Access Corporation 
P.O. Box 888, Belmont, CA 94002 

PHONE (415) 591-8295 
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Vocabulary Tutorial, Part 11 



Evan Rosen 
East Setauket, New York 

A commonly recognized problem 
with the CONTEXT/CURRENT Scheme 
arises when programming a code defi- 
nition for some vocabulary (call it 
VOCAB) which is not FORTH. Then 
ASSEMBLER is CONTEXT and VOCAB is 

CURRENT. If some needed data is in a 
third vocabulary, the programmer has 
to declare that vocabulary, get the data 
to the stack, and then declare ASSEM- 
BLER again to continue assembling 
machine code. This problem and its 
cousins are at the nuisance level. 

More serious is the fact that CON- 
TEXT/CURRENT makes implementing 
* * front -end" routines like algebraic 
parsers very difficult. One has only to 
write out the solution to the quadratic 
equation in Forth to realize the need 
for such a utility. Yet, although parsing 
schemes in Forth have been proposed 
many times (see the recent one by 
Stolowitz^ ), few have found their way 
into widely distributed systems. This is 
largely attributable to the difficulty of 
having more than two vocabularies, 
CONTEXT and CURRENT, in the search 
order. For instance, for an algebraic 
parser's vocabulary, redefined words 
would include at least the following: 
+ - <> /() 

These words would have to be reach- 
ed by the search before their counter- 
parts in the FORTH vocabulary, since 
they are redefinitions. In FIG, this 
means that the parser vocabulary 
would have to be context, and the 
next searched vocabulary would have 
to be put in CURRENT, producing in- 
elegant and misleading code. Accessing 
any other vocabulary during parsing, 
for data pickup or another reason, 
would become awkward to the point of 
impracticality. 

Still other uses for extra, transient 
vocabularies, such as named, local ar- 
guments, which would make Hfe so 



1 . Michael Stolowitz, * 'Algebraic Expression 
Evaluation in Forth,** Forth Dimensions, Vol. IV 
No. 6. 



8eti9E! ^^'^ E^sylt ing search list 

(pos. Ci) (pos. 4) 

(first /context ) ( 1 ast /orot ected > 

ONLY '^^'^ DNLY ONLY 

ONLY erases the 10 bytes of search list and then installs 
(pointers to) itself in the first (context) position in the 
list so that it will show as CONTEXT, and at the last 
("protected") list position so that it won't be pushed off 
the end as more vocabularies are added. The 0' s in the list 
will be skipped during searches, ONLY will not be searched 
twice since a "twice in a row" detector in -FIND will 
prevent the second search. 



FORTH FORTH 0#i 0#2 0#3 ONLY 

We've tagged the zeroes in the search list so you can watch 
which ones disappear. FORTH places a pointer to itself into 
the first (context) position of the list- This is the 
normal function of a vocabulary name in virtually all. FORTH 
implementations, and is preserved in this one. That's a 
good s i gn. 



ALSO ^-"-^ FORTH FORTH 0#1 0#£ ONLY 

Here's part of the magic. ALSO, a new word, moves entries 
0, 1, and £ of the search list into positions 1, £, and 3- 
The entry at position 3 is lost. The ONLY at position 4 is 
left untouched. FORTH is now safe from overwriting by the 
next vocabulary call. The effect of ALSO is simply to make 
room for the next vocabulary, in this case ASSEMBLER- . . 



ASSEMBLER ASSEMBLER FORTH 0#1 0#a ONLY 

The vocabulary ASSEMBLER is put at the top of the search 
list. The search order is now ASSEMBLER FORTH (skip) (skip) 
ONLY. 



PtLSO ASSEMBLER ASSEMBLER FORTH 0#1 ONLY 

ASSEMBLER is slid down preparatory to adding another 
vocabulary to the list. Note that 0#c: has been lost. 



PARSE "--^-^ PARSE ASSEMBLER FORTH 0#1 ONLY 

PARSE is added- We are now prepared to do assembly code, 
and to parse algebraic expressions while doing do. And 
there's room for another vocabulav^y- Note that if two more 
vocabularies were to be added, e. gl ALSO VOCl ALSO VOCe 
then FORTH would be pushed off the end. 
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FOR TRS-80 MODELS 1 , 3 & 4 
IBM PC, XT, AND COMPAQ 

The MMSFORTH 
System. 
Compare. 

• The speed, compactness and 
extensibility of the 
MMSFORTH total software 
environment, optimized for 
the popular IBM PC and 
TRS-80 Models 1,3 and 4. 

• An integrated system of 
sophisticated application 
programs: word processing, 
database management, 
communications, general 
ledger and more, all with 
powerful capabilities, sur- 
prising speed and ease of use. 

• With source code, for custom 
modifications by you or MMS. 

• The famous MMS support, 
including detailed manuals 
and examples, telephone tips, 
additional programs and 
inexpensive program updates, 
User Groups worldwide, the 
MMSFORTH Newsletter, 
Forth-related books, work- 
shops and professional 
consulting. 



much easier, also have been impeded 
by the vocabulary search problem. 

The ONLY Solution? 

Probably the best and most obvious 
approach to the outlined situation is 
simply to allow the programmer to 
specify a search order for as many 
vocabularies as are required, and be 
done with it. Indeed, over the last few 
years many authors have proposed 
and/or implemented systems which do 
just this. And the STOIC language, a 
variant of Forth, has long had a voca- 
bulary stack for the same reason. But 
no general agreement on specifics has 
arisen for Forth. 

Recently, however, due to some 
campaigning by Bill Ragsdale on be- 
half of his own rather clever scheme^ , 
a welcome concensus on the next mile- 
stone in Forth vocabulary structures 
may be in sight. 

(An important thing to remember 
when promoting ideas to the rag-tag 
Forth community is to give your code a 
short, catchy name like ONLY and then 
emblazon the name on your t-shirt at 
Forth conferences. It also doesn't hurt 
if the solution is a good one.) 

Following is a description and illus- 
tration of the form of Ragsdale' s voca- 
bulary structure. 

At the heart of the ONLY scheme are 
three words: ONLY, ALSO, and a new 
version of -find. The Forth-79 version 
of the word VOCABULARY is used in- 
stead of the FIG version. (The differ- 
ence makes each one stand-alone or 
"sealed," e.g, with its last link field 
containing zero, similar to the way the 
vocabulary FORTH is in FIG-Forth.) 
These words and a few bytes of memo- 
ry appended to the data area of the 
variable context are about all the 
implementation requires to function, 
though several other programmer- 
friendly words are included for con- 
venience. 

When the variable CONTEXT is de- 
fined, it is followed by, say, 8 ALLOT 
which reserves some additional memo- 
ry where the list of (pointers to) voca- 
bularies in the search order will reside. 
With eight more bytes allotted after 
CONTEXT, there is a total of ten, or 
room enough for five vocabularies in 



2. William F. Ragsdale, "The *ONLY' Concept 
for Forth Vocabularies," Forth Modification 
Laboratory Conference Papers y 1982. 



the list at once. Five entries is an ar- 
bitrary but practical list size. 

At compile time, the new -FIND sear- 
ches through each of the vocabularies 
in' turn, using the usual (-FIND) primi- 
tive. But the real innovation is in how 
the search list is set up and manipu- 
lated. We examine this process by start- 
ing with the word ONLY. 

ONLY is a very small vocabulary con- 
taining only a few words and having an 
additional feature not shared with 
other vocabularies: when executed, 
ONLY zeroes the search list and then in- 
stalls pointers to itself in the first and 
last positions in the list. (During 
search, zeroes in the Hst are skipped 
over, and duplicate successive entries 
do not result in duplicate searches.) 
The first position is the normal data 
area of the variable CONTEXT, and the 
last position in the search list is a pro- 
tected one which is not normally alter- 
ed by anything except ONLY. Saying 
ONLY is how one starts a new search 
list. 

The few words in the ONLY vocab- 
ulary allow a larger list to be built. The 
main words are: ONLY itself, which al- 
ways allows you to start over; also, 
which makes room for more vocabu- 
laries on the list (see figure one); 
FORTH, which adds the Forth vocabu- 
lary to the search list; and the null 
word, a system detail necessary for in- 
terpretation of source code. 

Obscure? Probably only at first. 
Figure one shows a walkthrough of a 
typical sequence. 

Now, because appropriate search or- 
ders can usually be set up outside a 
word to be defined, there is no par- 
ticular need for vocabularies to be im- 
mediate any more, and so in a particu- 
lar implementation you may find that 
they are not. Beyond this, if you are 
only programming in the Forth vocab- 
ulary, you'll see very little difference in 
code. However, all sorts of additional 
programming utilities are made pos- 
sible with the new structure. Expect to 
see them coming up soon. 

The next and last installment in this 
vocabularies series will discuss the 
marked similarity between the vocab- 
ulary structure in Forth (especially 
FIG-Forth) and the ''object" structure 
in the Xerox-developed language, 
Smalltalk. 



A World of 
Difference! 

• Personal licensing for TRS-80: 
$129.95 for MMSFORTH, or 
"3+4TH" User System with 
FORTHWRITE, DATA- 
HANDLER and FORTHCOM 
for $399.95. 

• Personal licensing for IBM 
PC: $249.95 for MMSFORTH. 
or enhanced "3+4TH" User 
System with FORTHWRITE, 
DATAHANDLER-PLUS and 
FORTHCOM for $549.95. 

• Corporate Site License Exten- 
sions from $1,000. 



If you recognize the difference 
and want to profit from it, ask us 
or your dealer about the world 
of MMSFORTH. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617) 653-6136 
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C64-FORTH 
for the 
Commodore 64 

FORTH SOFTWARE 

FOR THE 
COMMODORE 64 



C64-FORTH (TM) for the Commodore 64 - 
$9P.95 

• Fig Forth-7^J implementation with extensions 

• Full feature screen editor and macro 
assembler 

• Trace feature for easy debugging 

• 320x200, 2 color bit mapped graphics 

• 16 color sprite and character graphics 

• Compatible with VIC peripherals including 
disks, data set, modem, printer and cartridges 

• Extensive 144 page manual with examples and 
application screens 

• "SAVETURNKEY" normally allows 
application program distribution without 
licensing or royalties 



C64-XTEND (TM) FORTH Extension for C64- 
FORTH-$59 05 

(Requires original C64-FORTH copy) 

• Fully compatible floating point package 
including arithmetic, relational, logical and 
transcendental functions 

• Floating point range of lE+38 to 2E-39 

• String extensions including LEFT$, RIGHTS, 
and MID$ 

• BCD functions for 10 digit numbers including 
multiply, divide, and percentage. BCD 
numbers may by used for DOLLAR. CENTS 
calculations without the round-off error 
inherent in BASIC real numbers. 

• Special words are provided for inputting and 
outputting DOLLAR.CENTS values 

• Detailed manual with examples and 
applications screens 

(Commodore 64 isa trademark of Commodore) 



TO ORDER - Specify disk or cassette version 

- Check, money order, bank card, 
COD'S add $1.50 

- Add $4.00 postage and handling in 
USA and Canada 

- Mass. orders add 5% sales tax 

- Foreign orders add 20% shipping 
and handling 

- Dealer inquiries welcome 

PERFORMANCE 
MICRO 
PRODUCTS 

770 Dedham Street, S-2 
Canton, MA 02021 
(617)828-1209 



Next- Generation 
Micro-Computer Products 



Forth Froth 



Wil Baden 
Costa Mesa, California 

Forth is unusual among program- 
ming languages in that it uses ) and ( 
for the same purpose as natural lan- 
guage. Indeed, **parenthesis" means 
''remark" in Greek, and ) and ( are 
properly called "parenthesis marks," 
just as we say "quotation mark" and 
"exclamation mark." 

Other analogies with natural lan- 
guage can be made. 

In natural language, a noun is the 
name of a person, place or thing. In 
Forth, this corresponds to something 
whose stack diagram is ( — nl, . . .n/ ). 
Nouns can be singular or plural; this 
corresponds to how many values are 
put on the stack. A proper noun, in 
Forth, is a constant. 

An adjective modifies a noun. In 
Forth, the stack diagram is (nl,. . .ni 
— nl . . .ni '). 1 + is an adjective; so 
are + and COUNT. 

A verb is the name of an action. In 
Forth the stack diagram is (nl,...n/ 
-). 

Intransitive verbs use up one value 
from the stack {e.g. LIST) and transitive 
verbs consume more than one value 
from the stack. The stack element cor- 
responding to nl is the subject of the 
verb, the other elements are objects. 
The value corresponding to n2 is the 
direct object; any others are indirect 
objects. A verb without a subject, e.g. 
the stack diagram would be ( — ), is an 
impersonal verb; others are personal 
verbs. 

Prepositions must be followed by 
another word. Some examples in Forth 
are :, VARIABLE, FORGET and 

A pronoun takes the place of a 
noun. In Forth, these are the stack 
operators, DUP and OVER. It is con- 
venient to consider the other stack 
operators as pronouns also, e.g. ROT, 
SWAP, and DROP. (Note that by our 
previous definitions, DROP could also 
be a verb and the rest could all be ad- 
jectives.) 



Interjections are the words in a 
parenthesis. 

Conjunctions are used to join words 
and phrases. The Forth conjunctions 
are begin, while, repeat, until, if, 

ELSE, THEN, DO, LOOP, and -i-LOOP. 

Adverbs tell how, when or where. 
They modify adjectives, verbs and 
other adverbs. They are something like 
adjectives and something like verbs. In 
Forth they are words with stack 
diagram 

(nl,. . .n/,n[/4- 1], . . .nk — nl,. . .n/) 

They take items off the stack, but leave 
some unchanged. 

Thus, all eight parts of speech are 
found in Forth. Other grammatical 
features are also present. 

A phrase is a sequence of words 
which could be used as a colon defini- 
tion. A phrase has a stack diagram 
which tells what kind of phrase it is. 
Thus, if the stack diagram is ( — n), it is 
a noun phrase. 

A clause is a verb phrase or an ad- 
verb phrase. Dependent clauses are ad- 
verb phrases; independent clauses are 
verb phrases. 

In Enghsh, just the first letter of the 
name of a language is capitalized {e.g. 
English, French, Fortran, Forth). 
Thus, FORTH is a Forth word. The 
name of the compiler will depend upon 
your system, but will probably be 
"forth" or "FORTH." 

When I first thought of these cor- 
respondences, I thought they were 
amusing but not very useful. A year 
later, I think they have a definite value. 
They suggest a way of choosing names 
for words, a convenient classification 
when describing a word and a rationale 
for punctuating phrases in definitions. 
A clause, for instance, should be sep- 
arated by end-of-line or by extra spac- 
ing. 
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Vectored Execution 
and Recursion 



VARIABLE LBR ( Used to 

VARIABLE RBR i Used to 

S VARIABLE LEVEL ( 

20 VARIABLE ANGLE ( 

: RETURN R> DROP ; 

- LBR M._.BR @ CPA 

" RBR ^'RBR i^i! CPA 

: NODE 

LEVEL II I ■■■ 
■-■1 LEVEL + 
LBR ( 
ANGLE lii! 2^ 
RBR ( 
ANGLE lii! LEF- T i LEVEL ! 

:: (LBR) 

DUP 2-*^' PENDDWN PORWARD 
NODE ( Do next level 

DUP 2* PENUP BACKWARD ; 

: (RBR) 

DUP PENDOWN PORWARD 
NODE ( Do next level 

DUP PENUP BACKWARD 



store 
store 



PPA 
l"'PA 



o-f 



(LBR) 
(RBR) 



V a :i. t,.t e o -f a 1 1 ;i. n g 1 b v e 1 
A n g I e ta e t w e e n s t. e m b ) 
; ( R e 1 1.( n liii e x e c. u t i o n t o 
EXECUTE ;; ( Define LBR in 
EXECUTE ; ( Define RBR in 



calling level ) 
terms of 'LBR ) 
terms of RBR ) 



IP RETURN THEN 

ANGLE lii! LEPT ( Adjust level and turn ) 
t)r a w 1 e f t fo i'- art c:: h ) 
RIGHT ( Turn ) 

D r a w !'■• i g !"f t b r a n <:: hi ) 



( Reset ) 



( Draw 



stem ) 



) 

( F'< e in> e t {Z u r s o r ) 

( DRAW Ix stem ) 

) 

( Reset Cursor ) 



(LBR) M.„BR ! 
(RBR) M^BR ! 

SETUP B LEVEL 



( 



St ore 
Store 



!-"'PA 
F'PA 



of 
of 



10 LBR DROP 



(LBR) 
(RBR) 



;!. n 
i n 



M._.BR 
RBR 



Type BE- TUP to draw tree? ) 




Roy W, Sommers 
Pennsville, New Jersey 

Previous articles on recursion {e.g. 
Vol. IV, No. 2) utilized the words MY- 
SELF and RETURN to effect recursion. 
However, in cases where the proce- 
dures call each other, this approach 
does not work. Recursion can still be 
accompUshed, though, by using vec- 
tored execution. 

This type of recursion can be illus- 
trated in terms of the binary tree de- 
scribed in Turtle Geometry (Abelson 
and diSessa, page 83). The reference 
program was written in a form of LO- 
GO and used separate procedures to 
draw left and right stems of different 
lengths, and a third procedure to con- 
trol depth of recursion and ^arsor po- 
sitioning. Each procedure called one 
or more of the other procedures. 

An analogous program can be writ- 
ten in Forth by using vectored execu- 
tion (see accompanying code and illus- 
tration). Since NODE contains LBR and 
RBR, these words must be defined be- 
fore NODE is loaded. However, if they 
were written in the form (LBR) and 
(RBR), they could not be loaded before 
NODE since they contain NODE. Vec- 
tored execution solves this problem by 
defining LBR and RBR in terms of the 
variables 'LBR and 'RBR which, at the 
time of execution of node, contain the 
PFAs of (LBR) and (RBR). 
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Break Through the 
64K Barrier/ 



FORTH-32™ lets you use up to one megabyte 
of memory for programming. A Complete 
Development System! Fully Compatible 
Software and 8087 Floating Point Extensions. 



Call today toll-free or 
contact a participating 
Computerland store. 



Quest Research, Inc. 

303 Williams Ave. 
Huntsville, AL 35801 
(205) 533-9405 



800-558-8088 



Now available for the IBM PC, PC-XT, COMPAQ, COLUMBIA MPC, 

and other PC compatibles! 



IBM, COMPAQ, MPC, and FORTH-32 are trademarks of IBM, COMPAQ, Columbia Data Products, and Quest Research, respectively. 
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Apple Forth a la Modem 



SCR * 120 

( TERMINAL MODEM ROUTINE -RDA 8/06/83 ) 
1 

2 HEX 

3 C0B5 CONSTANT CTRL.2 

4 C0B6 CONSTANT CTRLl ( WRITING ) 

5 C0B6 CONSTANT STATUS < READING ) 

6 C0B7 CONSTANT DATA 

7 3C0 CONSTANT BYTES/SCR ( APPLE SCREEN) 
8 

9 ; INTMOD ( BITO > STATUS CB 1 AND J 

10 : OUTTMOD ( — BIT! > STATUS C@ 2 AND 5 
11 

12 : OUT ♦MODEM ( CHAR ••— ) 

13 BEGIN OUT?MOD UNTIL DATA C! » 
14 

15 : INIT. MODEM ( 1=0RIG 0=ANS — ) 

16 3 CTRLl C! 11 CTRLl Ci 

17 IF- 8F ELSE 8B THEN CTRL2 C! f 
18 

19 : GET. MODEM ( — CHAR > 

20 BEGIN INTMOD UNTIL DATA C& r 
21 

22 DECIMAL 

23 ?S 
OK 

SCR * 121 

( TERMINAL ROUTINE FOR MODEM PAGE 2 ) 
1 

2 HEX 

3 : TRANS* ( FROM. LOCAL* TO. REMOTE* ) 

4 CR 2 ( CONTROL B ) 

5 OUT. MODEM OUT. MODEM BLOCK 

6 5000 DO LOOP BYTES/BLK 

7 DO DUP I -f C@ DUP EMIT OUT. MODEM 

8 LOOP DROP ? 
9 

10 : RTRANS* ( F. LOCAL* T. REMOTE *BLKS ) 

11 DO OVER I + OVER I + TRANS* 

12 LOOP 2DR0P i 
13 

14 : RECV GET. MODEM BLOCK BYTES/BLK 

15 DO GET. MODEM DUP EMIT OUER I -f C ! 

16 LOOP DROP UPDATE 
17 

18 

19 DECIMAL >S 
20 

(Listings Continued) 



R. Dudley Ackerman 
San Francisco, California 

These words will allow Forth users 
with Hayes Micromodems and Apples 
to send screens back and forth. Minor 
modifications will allow use on other 
systems. 

Execute modem after connect is 
made. A one should be on the origi- 
nator's stack, a zero on the stack of the 
computer in answer mode. Both parties 
should be able to see entries from both 
keyboards. 

When the modem program sees a 
control-B from its keyboard, it inputs a 
line of Forth. By executing RTRANS#, a 
set of screens can be sent from one sys- 
tem to the other. Notice the stack setup 
for RTRANS* : source screen number, 
destination screen number, and num- 
ber of screens. 

TRAN8# sends a control-B out and a 
screen number, then waits to give the 
receiver time to get the screen into its 
buffer. When the modem program gets 
a control-B across the line, it executes 
the Forth word to receive a screen. 

©KEY is Apple specific and gets a 
charactet from the keyboard. Hex 
eleven in init.modem sets the number 
of bits per character to eight, with no 
parity, one start bit, and two stop bits 
for the Hayes modem. Hex three 
initializes the Hayes modem. 

The program will also function as a 
simple terminal program. One desir- 
able feature would be a way to capture 
text into free memory, then save the 
text to disk. 
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PIECE 

OF 
MIND 

The System 816. 
The fastest, most cooperative computer you can buy. 

OEMs and systems integrators are busy people. Too busy to waste time with an uncooperative computer system. 
That's why every System 816 from CompuPro Is built to work long and hard without a whine or a whimper. 



More Dependable. 

With ten years of pioneering 
successes built into it. the 
System 816 is backed by the 
industry's longest warranty 
coverage. Depending on your 
needs, our warranties range from 
12 to 36 months. Most other 
computer manufacturers expect 
you to be satisfied with 90 days, 
which typically covers parts only 

You can also depend on 
complete hardware and software 
support, flexible configurations and 
upgrades, and system training. 




More Powerful. ©igas compuPro 

The System 816 squeezes more performance out of the 
IEEE-696 SlCX) bus than any other system you can buy. 
A choice of CPUs— and up to 4 Mbytes of our exclusive 
M-Drive/H™ RAM disk— give multiple work stations all 
the speed and power they can ask for. Standard RAM 
memory is expandable to one megabyte or more. 

Disk storage capacity ranges up to 4.8 Mbytes on 
floppy drives and as much as 320 Mbytes per controller 
on hard disk. 

CompuPro. 

A GODSOUr COMPANY 

3506 Breakwater Court, Hayward, CA 94545 
See us at COfllDiH/fAU *83 in Las Vegas. 

Prices and specifications subject to change without notice. 

System 816 front panel design shown is available from Tull Service CompuPro 

System Centers only 

CP/M and CP/M-86 are registered trademarks and CP/M-68K, MP/M-86. Concurrent 
CP/M-a6 and FORTRAN 7? are tradcnwks of Digital Research. CP/M and MP/M 8-16 
are compound trademarks of Digital Research and CompuPro, 



More Versatile. 

All family members share a 
common modular architecture. 
So it's a simple matter to upgrade 
or reconfigure any of them to 
keep up with your needs. All the 
while maintaining complete 
software compatibility up and 
down the line. 

And the 5-100 bus allows you 
the flexibility to plug in any 
compatible board to add graphics 
capabilities or boards for your 
own unique applications. 

You also get your choice of 
operating environments, including 
CP/M®, CP/M-86®. Concunrent 
CP/M-86™. MP/M 86™. and CP/M-68K™ and our own 
CP/M® 8-16™ and MP/M™ 8-16™. At the programming 
level, the System 816 family supports Pascal. C, map- 
FORTH. BASIC. COBOL. PL/1, and ANSI FORTRAN 77™ 
and more. 

More Information. 

Your customers satisfaction is important to both of 
us. so don't get stuck with a system that's more of a 
hindrance than a help. Send in the coupon and find 
out what peace of mind is all about, 

□ Send me your free System 816 brochure. 

□ Send me the name of my nearest Full 
Service CompuPro System Center or dealer 



NAME 



TITLE . 



ADDRESS . 



CITY^ 



. STATE . 



^ZIP_ 



Mail to: CompuPro, Attn: Sales Dept. 

3506 Breakwater Court. Hayward. CA 94545 
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Forth-83 



Loop Structure 



Bill Stoddart 
Middlesbrough, England 

The story so far. . . 

Bob Berkey has suggested a new 
loop structure capable of covering a 
full 64K range, of handling positive or 
negative increments, or even incre- 
ments which switch sign. The internal 
implementation is based on the fact 
that an overflow condition occurs 
when a sixteen-bit addition or subtrac- 
tion traverses the boundary between 
7FFF and 8000 hex in either direction. 
By using 8000 hex as a universal loop 
Hmit and performing a corresponding 
transformation on the loop index, we 
can test for completion of the loop by 
checking whether adding the increment 
to the transformed index causes an 
overflow. 

The new loop has been accepted into 
the 83-Standard, but requires careful 
thought if its advantages in terms of 
generality and speed are to be accom- 
panied by simplicity of implementa- 
tion. 

The main complication of the new 
loop is in the implementation of LEAVE, 
which has traditionally equated the 
loop limit and index, forcing termina- 
tion on the next occurrence of LOOP or 
+ LOOP. This technique is no longer 
available, as there is no longer an 
expHcit loop limit, and there is no value 
the index can be set to which will 
ensure termination for both positive 
and negative increments. Setting the 
Hmit to 7FFF hex will ensure termina- 
tion for LOOP and + LOOP with a posi- 
tive increment, since adding a positive 
value to 7FFF will always cause an 
overflow. However, there will be no 
overflow if the index is decremented by 
+ LOOP. 

With this in mind, the 83-Standard 
specifies that LEAVE should straight 
away transfer execution to just beyond 
the end of the loop structure. Various 
ways of achieving this have been sug- 
gested. Bob Berkey's original sugges- 
tion was that the runtime operation 
compiled by DO should push an exit ad- 
dress onto the return stack. This im- 



1 80 

O ( Nucl eus > 
1 

2 HEX 

3 

4 CODE (DO) 

5 AX POP ( initial index ) CX POP < 1 i mi t > AX CX CMP 

6 0= IF < bypass null loop ) LDDS AH AH SUB AX SI ADD 

7 ELSE BP SP XCHG 8000 # DX MOV CX DX SUB DX PUSH ( >: ) 

8 AX DX ADD DX PUSH ( i > SP BP XCHG SI INC 

9 THEN NEXT END-CODE 
10 

11 DECIMAL 

12 

13 

14 

15 



181 

O ( Nucleus > 
1 

2 CODE (LOOP) BP3 WORD INC OFL IF 4 # BP ADD SI INC 

3 ELSE LODS AH AH XOR AX SI SUB THEN NEXT END-CODE 
4 

5 CODE (-I-LOOP) 

6 AX POP AX BP-i^ ADD OFL IF 4 # BP ADD SI INC 

7 ELSE LODS AH AH SUB AX SI SUB THEN NEXT END-CODE 
3 

9 
10 
1 1 
12 
13 
14 
15 



182 

O ( Nuc 1 eus ) 
3 

2 CODE I < — n leave loop index ) 

3 BPS) AX MOV 2 DISF8 BPS) AX SUB AX PUSH NEXT END-CODE 
4 

5 CODE J ( — n leave outer loop index ) 

6 4 DISP8 BPo) AX MOV 6 DISP8 BP5) AX SUB AX PUSH NEXT 

7 END-CODE 
8 

9 CODE (LEAVE) 

10 4 # BP ADD LODS AH AH SUB AX SI SUB 

11 LODS AX SI ADD NEXT END-CODE 
12 

13 
14 
15 
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183 

O ( System word set , hi gh 1 evel ) 
1 

2 : <lMARK ( — addr ) HERE ; 

3 

4 : <RESOLVE ( addr — ) 

5 HERE SWAP - 1+ C, ; 
6 

7 : >MARK ( — addr ) HERE O C, 
8 

9 : :>RESOLVE ( addr — ) 
lO HERE OVER - 1- SWAP C! ; 
1 1 
12 
13 
14 
15 



184 

O < Program structures ) 
1 

2 VARIABLE CLUE 
3 

4 : DO < — dest ) 

5 CLUE 3 COMPILE (DO) >MARK < forward branch past loop > 

6 DUP CLUE f <MARK ( backward branch from loop ) ; IMMEDIATE 

7 

8 : LOOP ( dest — ) 

9 COMPILE (LOOP) < RESOLVE >RESOLVE CLUE ! ; IMMEDIATE 

10 

11 : +LOOP ( dest — ) 

12 COMPILE (+LOOP) < RESOLVE >RESOLVE CLUE ! : IMMEDIATE 

13 

14 : LEAVE ( addrl addr2 — addrl addr2 ) 

15 COMPILE (LEAVE) CLUE 5> < RESOLVE ; IMMEDIATE 



End Listing 



DO TEST IF CONNECT LEAVE THEN LOOP ... 
This compiles as: 

(DO) J^l^J TEST j7>BRANCHj^ 5 J^CONNECt|^ (LEAVE)j~H^ (LOOP) J^l 3 j 



Figure One 



plies a runtime penalty whether or not 
LEAVE is include<i in a loop, and sub- 
sequent suggestions from Klaus Schlei- 
siek and Bill Ragsdale have avoided 
any runtime penalty by using LOOP or 
+ LOOP to resolve forward branch 
addresses left by an immediate version 

of LEAVE. 

Now read on . . . 

The implementation presented here 
runs loops at maximum speed and also 
avoids any complexity in the compile- 
time behavior of LOOP or +IjOOP. 
These words do not need to know 
about the existence of leave. There is a 
minimal runtime penalty when the run- 
time operator for LEAVE is executed. 
The essential idea of the implementa- 
tion is that the runtime operator 
(LEAVE) compiled by LEAVE calculates 
its continuation address by locating an 
offset which follows the runtime oper- 
ator (DO) compiled by DO. 

Consider figure one. The runtime 
operators (DO), (LOOP) and (LEAVE) are 
followed by unsigned eight-bit dis- 
placements. Thus, (DO) has an offset to 
beyond the loop, and (LOOP) has an off- 
set back to the start of the loop. 

The offset that follows (LEAVE) is 
back to the location following (DO). 
(LEAVE) performs its function by: 

a) subtracting its offset from IP, leav- 
ing IP pointing to the byte that follows 
(DO), and 

b) adding the offset that follows (DO) to 
IP, leaving IP pointing just beyond the 
loop. 

At compile time, DO saves the loop 
start address in the variable CLUE, hav- 
ing first saved the previous value of 
CLUE on the parameter stack. LEAVE 
uses the contents of CLUE to calculate 
the offset back to the start of the loop. 
LOOP or -i-LOOP will restore the pre- 
vious value of CLUE, which will either 
be its initial value or the start address 
of an outer loop. 

The code presented here is without 
compiler protection, but setting the ini- 
tial value of CLUE to zero provides a 
simple test for being inside a loop. 

The existence of an offset following 
(DO) means that including a test for a 
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null loop is very simple and efficient. 
On grounds of functional correctness, 
too, I think this should be included in 
the standard, and the test is included 
here. 

The code definitions of the runtime 
operators are given for an 8086 im- 
plementation. For those who wish to 
ponder the details, SI is a sixteen-bit in- 
dex register used as Forth's IP. Next is 
post incrementing, so that during ex- 
ecution of a code-level word, IP points 
to the following byte. 

BP is a sixteen-bit index register used 
as Forth's RP. The return stack grows 
toward low memory, so that 
4 # BP ADO 

drops two items from the return stack. 

AX is a sixteen-bit accumulator with 
low byte AL and high byte AH. The @ 
symbol is used in the assembler to de- 
note indirection, so 

AX BP@ ADD 
will add AX to the contents of the 
location indicated by BP, which is the 
top of the return stack. The instruction 

2 DISP8 BP@ AX ADD 

adds the second return stack item to 
AX. 



LODS is a one-byte instruction 
equivalent to 
Sl@ AL MOV SI INC 

The offsets compiled by DO, LEAVE, 
LOOP and + LOOP are calculated using 
the 83-Standard system words >MARK, 

> RESOLVE, <MARK and < RESOLVE. 

The definitions of these words are 
included for completeness. They are 
specific to a system using eight-bit 
unsigned offsets. 

The definitions of DO, LEAVE, LOOP 
and + LOOP will be usable on any sys- 
tem, since they use the system words to 
hide details of the underlying imple- 
mentation. 

Appendix: DO. . .LOOP Algebra 

It is fascinating that a discovery such 
as the new loop can be made after so 
many programmers and compiler wri- 
ters have been implementing loops for 
so many years. One reason why this 
type of thing is tricky is that sixteen-bit 
integer arithmetic is really two arith- 
metic systems combined, signed and 
unsigned, and in using the overflow 
flag to test for loop termination we are 



using a facility from signed arithmetic 
to test for the completion of an unsign- 
ed operation. In a hardware realization 
of a Forth machine, of course, the in- 
ternalized limit could be zero, with a 
"loop" flag which comes up when a 
sixteen-bit arithmetic operation crosses 
zero. 

Let L and I represent the loop limit 
and index. We define the range R of 
the loop as R = L - I. 

We transform L and I to internalized 
values 1 and i, where in most systems 
1 - 8000 hex. 

This transformation does not affect 
the range of the loop, so we can write R 
= 1 - i, and thus i = 1 - L + L 

As the loop executes, there is a con- 
stant difference between i and I which^ 
can be expressed as I = i - x, which by 
eUminating i gives x = 1 - L. 

The values of x and i are calculated 
by the runtime operator for DO and are 
pushed onto the return stack. (See 
comments in (DO).) The Forth word I 
calculates the loop index using I = i- x. 
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8080/8085, Z80 VERSIONS 

• SUPPORTS DEVELOPMENT FOR DEDICATED APPLICATIONS 

• INTERACTIVELY TEST HEADERLESS CODE 

• IN-PLACE COMPILATION OF ROMABLE TARGET CODE 

• MULTIPLE, PURGABLE DICTIONARIES 

• FORTH-79 SUPERSET 

• AVAILABLE NOW FOR TEKTRONIX DEVELOPMENT SYSTEMS - $2250 
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• SOFTWARE ENGINEERING 
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• PROTOTYPE FABRICATION AND TEST 
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• DIVERSIFIED STAFF 
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What D o 
All Have In Common? 

Hewlett Packard 
AT & T Long Lines 
General Electric 
Hughes Aircraft 
Motorola 

Rockwell International 
U.S. Army ET & D Labs 
U.S. Navy NOSC 
University Of California 
and over 200 others ... 




Over the past three years, each has bought professional 

68000 FORTH 

systems from 

Creatine Scluticrs Inc. 



Why? 



MATURE RELIABLE PRODUCT 

First Multi-FORTH'f'f^installation in De~ 
cember 1979 - installed base of over 200 
sites. 

MULTITASKING 

Since the beginning, Multi-FORTH^M has 

supported multiple background tasks and 
optional multiple users. 

16 OR 32 BIT IMPLEMEMTATIONS 

16 bit 79 - Standard or 32 bit uniimtted 
program size implementations available. 

FAST . . . 

Eratosthenes Sieve Benchmark in under 18 
seconds for 10 passes in high level. 

IN-LINE ASSEMBLER 

BUILT-IN TRACEVOEBUG FEATURES 



CORE IMAGE SNAPSHOT FEATURES 

Saves and restores current system image 
without recompiling ( for turnkey appli- 
cations). 

EXTENSIVE DOCUMENTATION 

Current user manual is over 350 pages. 

ONLINE CAI COURSE, HELP FEATURES 

GRAPHICS AND FLOATING POINT, 
SCREEN EDITORS, ON HP SERIES 200 
OR MOTOROLA VME/10 

MOST SINGLE BOARD COMPUTERS ARE 
SUPPORTED 

VME110, KDM, BOB, VMOl, VM02, 
0BB8K, BRl, DUAL, ERG, CP^M68K 
installations - 8" media. 



PR/CES START at $895.00 for a SINGLE COMPUTER LICENSE (CP/M Version) 



□ OK! ! I rm interested! Please send nne more infornnation about the Multi-FORTH system. 



Name 



Company 



Address 
Phone 



Hardware Type 




z 



Crcdtitc SoliiUons Inc. 



Multi FORTH'''"ts a regtstered trademark of Creative Solutions, Inc. 



4801 Randolph Road 
Rockville, Maryland 20852 
(301) 984-0262 
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Techniques Tutorial 

Multi-Tasking, Part 1 



Henry Laxen 
Berkeley, California 

Multi-tasking has long been one of 
the biggest benefits of Forth and one of 
its most closely guarded secrets. The 
fact that even crippled processors like 
the 8080 can be made to run four or 
five tasks simultaneously with little 
performance degradation is a testa- 
ment to the efficiency both of Forth it- 
self and of the techniques involved in 
implementing a multi-tasking kernel. It 
is time to reveal the techniques used in 
most Forth multi-tasking systems and 
to allow the user to benefit from the 
power such knowledge can bestow. 

Now for the disclaimers. First, I am 
only going to discuss multi-tasking, 
and not multi-user. Forth systems. The 
difference is that in a multi-tasking 
Forth there is but one terminal attach- 
ed to the system, hence only otie person 
at a time is interpreting or compiling. 
This is considerably simpler than a 
multi-user Forth system with several 
terminals (each perhaps with its own 
unique characteristics), all interpreting 
and compiHng at the same time. In our 
multi-tasking system, the user will be 
able to have several tasks running si- 
multaneously, perhaps communicating 
with each other and with the terminal, 
but I will not get into the subtleties as- 
sociated with turning it into a true 
multi-user environment. The second 
disclaimer is that in order to get some 
efficiency out of the system, the tech- 
niques used to implement multi-tasking 
are generally very machine dependent. 
Since my machine is an 8080, and it is 
me writing this article, you will either 
have to bear with me or ignore the ar- 
ticle. The choice is yours. 

This first installment will deal with 
the low-level mechanism involved in 
task switching, and the structures that 
must be in place in Forth in order to 
make multi-tasking possible. The se- 
cond article on this subject will talk 
about creating and manipulating tasks. 
While the code I present is oriented 
toward an 8080, 1 will describe its func- 
tion. You should be able to translate it 



into code for your processor without 
much pain. 

Now then, let me first describe the 
philosophy behind multi-tasking in 
Forth. Unlike traditional multi-tasking 
systems, which interrupt the currently 
running task at a completely arbitrary 
time and initiate another task unbe- 
knownst to the first one. Forth requires 
tasks to cooperate. While each task 
does not know details about the other 
tasks, it must at least be aware of them, 
or else the system will revert to a single- 
task existence. Each task must explicit- 
ly give up control of the CPU at certain 
points while it is running. The Forth 
kernel does so whenever it is about to 
perform an I/O operation, such as 
reading or writing to the terminal or 
mass storage device. If the user creates 
a task that does no I/O of its own, then 
he must explicitly give up control or 
else as soon as that task is activated, it 
will take total control of the machine. 
Each of the two approaches mentioned 
above has merit, and I will briefly dis- 
ctiss the good and bad points of each. 

The main advantage of traditional 
multi-tasking systems is that the pro- 
grammer does not need to be aware of 
their existence. As far as he is concern- 
ed, the program he writes is just run- 
ning slower. He does not need to modi- 
fy it in any way from a single-user en- 
vironment. There is, of course, a cost 
associated with this benefit, and that is 



one of performance. Since the operat- 
ing system must absolutely guarantee 
that the state of the system is undistur- 
bed between one running of the task 
and another, an extremely complex 
process usually is required to save and 
restore a task. Since the task is una- 
ware that it is being removed from con- 
trol, the operating system may grab it 
at a particularly inopportune moment, 
and the amount of information that 
must be saved and restored can be stag- 
gering. This is why performance on 
such systems typically degrades rather 
dramatically as soon as several tasks 
are running concurrently. The main 
advantage of the Forth approach to 
multi-tasking is that the overhead of 
task switching is extremely small. 

Thus, many tasks can be run simulta- 
neously with little performance deg- 
radation. The disadvantage is that an 
additional burden is placed on the pro- 
grammer. He must follow some rules 
that apply in multi-tasking systems, as 
well as, perhaps, modify his code to 
take advantage of multi-tasking. My 
conclusion from this synopsis is that 
traditional multi-tasking is great on 
very large systems where tens or hun- 
dreds of tasks are running simultane- 
ously and the computer hardware helps 
you. On microcomputers and small 
systems, the traditional approach sim- 
ply does not apply, amd the benefits of 



VARIABLE UP { Points to the currently active user base address ) 
: USER CREATE , DOES> @ UP @ + 

Figure One 
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the Forth approach greatly outweigh 
the drawbacks. 

The basic mechanism Forth uses is 
simply to define an ordinary Forth 
word, usually called PAUSE, which 
relinquishes control of the CPU from 
the currently running task and gives it 
to the next task that is ready to run. 
PAUSE takes nothing from the stack 
and returns nothing, and disturbs the 
system in a well-defined way of which 
the user must be aware. What PAUSE 
actually does is to examine a linked hst 
of tasks that may or may not be ready 
to run. The first ready task it finds is 
given control of the CPU and is al- 
lowed to run until it executes a PAUSE 
of its own. The linked list is circular, so 
eventually we will get back to the first 
task in the list and run it again, with ex- 
ecution continuing immediately after 
the PAUSE word. By agreement, tasks 
shall not disturb the state of the system 
except with regard to block buffers. 
Thus, each task may not assume that 
the buffer it is using is still present after 
a PAUSE has been executed. This minor 
restriction greatly simpUfies the job of 
saving and restoring the state of the 
system between task activations. 

Wait a minute, you say, what about 
the many system variables that tasks 
may use while they are running. For ex- 
ample, if a background task is doing 
print spooling while you are editing a 
screen, both tasks are accessing 
variables such as OUT, BASE, HLD, etc. 



Things would get very confusing if 
each task could change these and affect 
other tasks. Fortunately, there is an ex- 
tremely elegant way to prevent this 
which has traditionally been known as 
USER VARIABLE in Forth. The idea is 
simple, namely, just group together 
those variables which each task must 
have to itself. These variables become 
offsets from some base address. When 
these variables are executed, they must 
add their offset to the base address of 
the current task. Thus, to switch tasks 
one need only change the base address 
from whence these variables originate, 
instead of copying the values themsel- 
ves to some safe area. The portion of 
memory reserved for these variables is 
called the USER area. There are many 
different ways of implementing this 
concept, and I would like to present a 
new one here which I believe has great 
merit. Traditionally, USER was a defin- 
ing word which took as an argument an 
offset from the base address and as- 
signed a name to that offset. At run- 
time, the offset was added to the base 
of the current user area, which was 
contained in a regular variable, and 
that address was placed onto the pa- 
rameter stack. This is simple, but has 
some disadvantages. It is difficult to 
insert a new USER variable into the 
middle of existing ones with this im- 
plementation. It also forces the user to 
be aware and do arithmetic in order to 
maintain the user area. The old im- 



plementation was as shown in figure 
one. 

A much more flexible approach is to 
make USER a vocabulary, and redefine 
those words which may be needed on a 
task level. Consider the implementa- 
tion in figure two. 

Now you need no longer keep track 
of where each variable is going and 
how much space has been used. Also, 
arrays are much easier to create, and I 
thinic it reads much more nicely. With 
the old approach, you would have to 
say 34 USER BASE to define a user vari- 
able called **base," and you must 
know that location 34 is available for 
use. With the new scheme, you simply 
type USER VARIABLE BASE, which reads 
very nicely indeed. 

Now then, suppose we have such 
things as USER variables, regardless of 
exactly how they were defined. In par- 
ticular, I will need three such variables 
as follows: 

USER VARIABLE TOS (Holds top of 

Stack when switching tasks.) 

USER VARIABLE ENTRY (Contains 
machine code and task status.) 

USER VARIABLE LINK (Points to next 
task in a circular list.) 

Let's examine the role of each of 
these a little more closely. TOS is simply 
going to hold the value of the top of 
the parameter stack for this task, when 
it gives up control of the CPU to the 
next task. Since each task must have its 
own local stack in order to do just 
about anything, this value must be 
saved and restored between successive 
activations of a task, entry in our 
implementation will contain machine 
code that will either jump to the next 
task in the list if the current one is not 
ready to run yet, or it will jump to 
some activation code that will bring 
this task to life once again. Finally, 
LINK points to the ENTRY field of the 
next task in the circular list. The only 
tricky part of this is how to fit the code 
that decides whether or not to activate 
this task and either continue or restore 
all of the task's parameters, in the two 
bytes reserved for ENTRY. It just so 
happens that, on the 8080, two bytes is 
more than enough and, in fact, one 
would suffice. 



CODE PAUSE (S — ) 

IP PUSH { Push the current interpreter pointer onto stack ) 

RP LHLD H PUSH ( and the current return stack pointer ) 

H LXI SP DAD XCHG ( Stack pointer now in DE ) 

UP LHLD ( Points to TOS, which is first entry ) 

E M MOV H INX D M MOV H INX ( Move stack pointer to TOS ) 

H INX PCHL ( Jump to next task ) C; 

Pause on the 8080 
Figure Three 



CODE RESTART (S — ) 

{ Since a RST instruction has just been executed, the address 
UP + 3 is now on the stack ) 
-3 H LXI D POP D DAD UP SHLD ( Set up new USER area ) 
M E MOV H INX M D MOV XCHG SPHL ( Restore parameter stack ) 
H POP RP SHLD ( Restore Return Stack Pointer ) 
IP POP ( Restore the IP ) NEXT JMP C; 

Figure Four 
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The 8080 has several one-byte in- 
structions called RST instructions. 
When these are executed, they push the 
value of the program counter on the 
stack and jump to a specified location 
in low memory. Thus, the trick on the 
8080 is to put either an RST or a JMP 
into the entry point. An RST instruc- 
tion will cause this task to be activated, 
while a JMP instruction will jump im- 
mediately to the ENTRY point of the 
next task in the list. Remember that the 
contents of link point to the entry 
point of the next task in the list. So to 
make a task active, an RST instruction 
is placed into ENTRY while to deactivate 
a task an NOP instruction is placed in- 
to ENTRY. The JMP instruction is al- 
ways present in ENTRY + i. This is 
wasteful, I know, but what the hell. 
Now then, all we have to do is under- 
stand what exactly happens when we 
do a PAUSE and a task activation. Let's 
first look at what pause does on the 
8080. (See figure three.) 

PAUSE is in charge of saving the 
current task's status and jumping to 
the next task in the circular list. Notice 
how little information needs to be 



saved during a task switch. Only the 
current value of the IP, the return 
stack depth, and the parameter stack 
depth is saved. Note that the IP and the 
return stack depth have been pushed 
onto the parameter stack, so it will be 
the duty of the RESTART word to pop 
these off so that the stack depth is 
unchanged. Now let's take a look at 
RESTART in figure four, which must re- 
start a task where it left off, namely 
just after executing a PAUSE. 

Remember that the RST instruction 
is a one-byte call to a fixed address. 
Thus, it pushes the address of the cur- 
rent user area plus three onto the cur- 
rent stack. This information is used to 
restore the user area for the task that is 
now being restarted. Once the base of 
the user area is computed, the parame- 
ter stack is restored and then the return 
stack and the interpretive pointer. 
Thus, RESTART has undone what was 
done by PAUSE, and resumed execution 
with the word following PAUSE, as 
though nothing has happened. 

I hope this has shed a little light on 
what goes on in a multi-tasking system. 



Next time, we will explore how to cre- 
ate and manipulate tasks, now that we 
understand the task-switching mechan- 
isms involved. Until then, good luck, 
and may the Forth be with you. 



Copyright © 1983 by Henry Laxen, 
All rights reserved. The author is Chief 
Software Engineer for Universal Re- 
search, ISO North Hill Drive 010, Bris- 
bane, CA 94005, specializing in the 
development of portable computers. 



Letters (Continued from page 4) 

fact, any reference to an operating sys- 
tem at all (except for terminal interfac- 
ing words Hke EMIT), as far as the stan- 
dard is concerned. That is most defin- 
itely not to say that the screen system is 
not a good one. In fact, it might be the 
best system for particular apphcations. 
But I think Forth should emulate the 
attitude of C and Modula II in that 
respect. Separate the design and im- 
plementation of the operating system 
from the language standard. 

The next issue on my mind is that of 
strings. Possibly one of the FIG study 
groups is taking care of my concerns; 
but it would make me feel more com- 
fortable to see some debate, at the level 
of fundamentals, in Forth Dimensions 
before things get too far along. 

BASIC has taught us that good 
string handling is one of the very im- 
portant components of interactiveness. 
The secret of (Microsoft) BASIC'S 
friendliness with strings is that you 
never have to specify the length of a 
string, and the secret of that is 



BASIC'S string-space garbage collec- 
tor. Here is an opportunity for Forth, 
because, however they are imple- 
mented, Forth's string variables are 
likely to be dispersed randomly in the 
code, rather than being assigned to a 
well-defined memory region; and that 
makes garbage collection impossible 
without both forward and backward 
links between string variables and 
string values in string space. This is ex- 
tra memory overhead, compared to 
BASIC, but the advantage is that it 
makes very fast garbage collection pos- 
sible. 

String handling is very important, 
and Microsoft BASIC has shown us 
that it can be done extremely well in 
small-scale systems. We should accept 
nothing less for Forth. 

Finally, let me comment on the edi- 
tor's reply to a letter in Forth Dimen- 
sions (Vol. IV, No. 6, page 25), point- 
ing out a design bug in a FIG release. 
The response was to the effect that the 
bugs were known, and had been fixed 
in the implementations of various ven- 



dors, who have more resources for that 
kind of maintenance than FIG. 

I have to chide you a little for that. 
We all appreciate the tremendous gen- 
erosity of the people behind FIG, who 
put their public-domain philosophies 
where their mouths are, at the cost of 
that most valuable commodity, per- 
sonal time. But the situation is surely 
analogous to that of pubhshing re- 
search in scientific journals. As a theo- 
retical physicist, it is my professional 
and ethicaJ responsibility to publish an 
erratum if I become aware of a sig- 
nificant mistake in any of my pub- 
Ushed work. I think the same should 
apply to FIG publications. If you know 
of a bug, you should pubUsh an er- 
ratum. 

I hope that, in the interest of pruning 
my remarks to a few, I have not con- 
veyed an overly critical impression, I 
really get a sense, from two years' 
worth of Forth Dimensions, that the 
community is making solid advances. 
Although not a Forth fanatic, let me 

(Continued on next page) 
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Screen # 32 
8 ( Callander Development, Screen 1 of 3 ) 

1 ! CTABLE <BUILDS 8 DO C, LOOP DOES> + C3 ; 

2 31 38 31 30 31 31 30 31 38 31 29 31 8 

3 31 38 31 30 31 31 38 31 38 31 28 31 8 

4 26 CTABLE DAYS-IN-MONTH < month ~ days in month ) 
5 

6 : IS-LEAP-YEAR? < year — -flag ) 

7 DUP DUP 408 MOD 8= (if year divi sable by 488 ) 

8 SWAP 108 MOD 0= NOT OR ( or not divi sable by 188 ) 

9 SWAP 4 MOD 8= AND ; C and divisible by 4 then leap > 
18 

U 
12 
13 
14 

15 — > 



Screen tt 33 

8 < Calander Development, Screen 2 o-f 3 ) 

1 : DAY-OF-YEAR ( day, month, year — day o-f year > 

2 IS-LEAP-YEAR? 

3 IF 13 + 14 < if leap year convert offsets ) 

4 ELSE 1 ENDIF < else start at month 1 ) 

5 2DUP = IF 2DR0P < if month is January, return day ) 

6 ELSE DO I DAYS-IN-MONTH + LOOP < else cal day of year > 

7 ENDIF ; 

8 i DAY-OF-WEEK < day, month, year — day of week, Sunday is 8 ) 

9 DUP >R DAY-OF-YEAR ( get current day of year, current day ) 
18 R> 1980 00 < start at year 1900) 

11 I IS-LEAP-YEAR? IF 366 + ELSE 365 + ENDIF 

12 LOOP + < add in day of this year ) 

13 7 MOD ; < mod by 7 for day of week ) 

14 < Note: works from year 1981 to 2188 ) 

15 — > 



Screen 34 
8 < Calander Development, Screen 3 of 3 ) 

1 : CALANDER < month, year — > < print months calander ) 

2 2DUP SWAP . - " . CR 

3 Sun Mon Tue Wen Thr Fr i Sat" CR 

4 2DUP 1 ROT ROT DAY-OF-WEEK < find day of 1st day of month > 

5 DUP 2* 2* SPACES < space over in output ) 

6 ROT ROT < stack: dayofweek , month, year ) 

7 IS-LEAP-YEAR? IF 13 + ENDIF DAYS-IN-MONTH < get days in month ) 

8 1+ 1 DO 

9 I 4 .R < out day ) 

18 1+ DUP 7 :s IF CR ENDIF 7 MOD < if sat then cr ) 

11 LOOP 8= NOT IF CR ENDIF CR ; < output ending crs ) 

12 ! CALANDER-YEAR ( year — ) ( print calander for whole year ) 

13 13 1 DO DUP I SWAP CALANDER LOOP DROP \ 
14 

15 



7 1983 CALANDER 
7 - 1983 
Sun Mon Tue Wen 



3 

10 

17 
24 
31 



4 
1 I 
18 

25 



5 
12 
19 
26 



6 
13 
28 
27 



Thr 

7 
14 
21 
28 



Fr i 
1 
8 
15 
22 
29 



Sat 

2 
9 
16 
23 
30 



end by saying that I find FIG a unique- 
ly valuable enterprise. 

David N. Williams 
1238 Westport 
Ann Arbor, MI 48103 



Code for AH Seasons 

Dear FIG, 

At last year's Forth convention in 
San Jose, one speaker mentioned that 
functions to print out the calendar 
would be useful. Though I am not an 
expert in Forth yet, these functions 
seemed simple, and I have developed 
the code shown in the accompanying 
screens. I am using a Forth developed 
from the FIG model; it should be 
simple to convert these functions to 
Forth-79. 

I would personally like to see some 
routines that would display a comment 
associated with a Forth word. I find it 
very awkward to look up uncommon 
definitions each time I need to use one. 
Currently, I am just not familiar 
enough with Forth to implement this. 
Does anyone have some ideas? 

Thank you very much, 

Jesse Jay Wright 
164 N. Oak Knoll #8 
Pasadena, CA 91101 



FIG Aficionado 

Dear Editor, 

Re: the contents of Forth Dimen- 
sions, you find me delighted to see true 
FIG-Forth screens reappearing. After 
all, FIG-Forth is our group's own ver- 
sion of Forth, and though the **stan- 
dard" (unfortunately, I think) gets 
changed every four years or so (this is 
bound to scare off many a potential 
commercial user worried about soft- 
ware maintenance — a standard that 
changes is a contradiction in terms!), 
FIG-Forth escaped unscathed. In con- 
trast, a Forth-79 screen written only 
one year ago won't necessarily load on 
a Forth-83 system. IVy to explain this 
to a business user who just got coaxed 
into spending a few thousand bucks on 
a Forth-83 system with promises of a 
wealth of ready-made software at 
large, and who discovered that it will 
require considerable amounts of re- 
writing before he can use it. The same 
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applies to Forth-79 users who won't be 
able to load all these '83 screens which, 
no doubt, will appear before long. If 
new **standards" keep popping up like 
this, there will soon be as many Forth 
dialects as there are BASICs, and the 
intended source portability will be 
nothing but a hollow phrase. 

A while ago, I obtained a Z-80 FIG- 
Forth listing from Dennis Wilson of 
Aristotelian Logicians. To do better 
justice to the Z-80 bit, I re-worked 



parts of it. I got lots of fun out of re- 
writing code definitions, ending up 
with fewer bytes used and a faster ex- 
ecution time to boot. As a resuh, the 
Primes benchmark {Forth Dimensions, 
Vol. II, No. 4) executes 1000 primes in 
fifty-four seconds, and the BYTE test 
(September 1981) runs in just eight 
seconds. I'd very much like to hear 
from anyone who can do better than 
this on a 4Mz, Z*80 system. I will glad- 
ly supply the source text to any inter- 



ested person who sends a 5 1/4 ' ' dou- 
ble-sided, single-density diskette (or 
$5) and return postage. 
Yours Forthfully, 

Edmund Ramm 
Postfach 38D-2358 
Kaltenkirchen, West Germany 



New Product Announcements 



Forth Dimensions welcomes press 
releases and product announcements, 
as well as reader letters regarding pro- 
duct performance. Addresses of the 
distributors and manufacturers men- 
tioned in this column may be found in 
the Vendors List. 

Perkel Software Systems has an- 
nounced that its Marx Forth vl.4 is 
now a public-domain product. In- 
cluded is its target compiler system 
which allows applications to be run as 
stand-alone machine code files that 
don't require a Forth system to run. 
Source listings and forty-page manual 
cost $35, disk version $150; for North- 
Star, CP/M, Atari, Radio Shack. 
Those interested in developments re- 
lated to a "universal compiler" with 
the ability to compile code from Forth, 
Pascal, C and BASIC may write to 
Perkel Software Systems. 

The Pocket Guide to Forth lists 
Forth words in ASCII order, along 
with definitions and stack diagrams. 
Gives FIG-Forth and Forth-79 correla- 
tions. Available for $7.00 from Moun- 
tain View Press ($7.25 elsewhere). 

Forth Inc. has released a schedule of 
Forth classes for the period from No- 
vember 1983 to February 1984. In- 
cluded are an intensive introduction 
covering vectored execution , array 
handling, sealed vocabularies, data 
typing, data formatting and manage- 
ment; advanced instruction detailing 
multi-tasking, serial device drivers, in- 
terrupt routines, BLOCK device dri- 
vers and target compile applications 



culminating in a running target image; 
and data-base design concentrating on 
the techniques needed to store data on 
disk and to design reports, user inter- 
face and security, indexing methods, 
and data description and access tools. 
Courses are five days in length, consist 
of both lecture and hands-on learning, 
and cost between $750 and $950 for in- 
dividual enrollment. 

Several printed listings which include 
the 83-Standard are available from 
MicroMotion for $15 each. Also avail- 
able are 6502, 8080 and 8086 source 
listings which support both the new 
standard and the 83 model by Laxen 
and Perry. Call or write them for a free 
83-Standard Programming Reference 
Card. 

Ziggurat Software announced ap- 
plications for HES' FIG-Forth for the 
VIC-20. Included are additional FIG- 
Forth words not in the HES implemen- 
tation, printer utilities for the VIC 
printer, a case statement, arrays and 
strings, and disk utilities. Available on 
cassette or disk. 

Innovatia Laboratories offers three 
products. FMS is a text formatter 
which permits storage of text or direct 
output (typewriter-like) to printer, and 
permits access to all upper- and lower- 
case Greek letters and forty-six math 
and special symbols. FLH provides 
LISP-Iike list-handling in Forth and a 
small expert system written in FLH. 



FWG, a firmware generator, creates 
ROMable Forth code, with or without 
headers, for target compilers. 

Forth for the Texas Instruments 
99/4A can be purchased from Wycove 
Instruments Ltd. It requires at least 
32K of additional memory and one of 
the following: Editor/Assembler, Mini 
Memory or Extended BASIC. A cas- 
sette version is available. Sprites, 
sound, floating-point arithmetic and 
peripheral access are supported. The 
$50 price includes a short introduction 
to Forth, complete description of the 
included Forth words, hardware notes 
and a sample game. Beginners are 
referred to Starting Forth by Leo 
Brodie. 
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Chapter News 



John D. Hall 
Oakland, California 

We have three new chapters! They 
are: 

Fox Valley FIG Chapter 
Batavia, Illinois 

Philadelphia Area FIG Chapter 
Philadelphia, Pennsylvania 

Houston FIG Chapter 
Houston, Texas 

The following areas do not have FIG 
chapters, even though there are suffi- 
cient FIG members to form them. I 
know that many members in these 
areas are interested, but someone will 
have to make an effort! 

Tucson, AZ Atlantic City, NJ 

San Jose, CA Corvallis, OR 

Gainesville, FL Eugene, OR 

Tampa, FL Columbus, OH 

Orlando, FL Cincinnati, OH 

Huntsville, FL Norfolk, VA 

Melbourne, FL Roanoke, VA 

Atlanta, GA Richland, WA 

Indianapolis, IN Madison, WI 

Baton Rouge, LA Milwaukee, WI 
Raleigh/Durham, NC 

Australia Chapter 

At the meeting on July 1, after a 
question and answer session, the dis- 
cussion was devoted to screen transfer, 
with some heavyweight thinking about 
the ISO seven-layer model. On August 
5, the same topic was featured, and at 
the end of the meeting, several people 
decided to actually do something about 
writing code and making cables to ac- 
tually transfer some data. 

Los Angeles Chapter 

There was a talk on August 27 about 
the current state and future trends of 
software and hardware development 
for personal and business computers in 
Japan. Martin Tracy discussed tech- 
niques and implementations for ROM- 
able Forth systems. Barry Cole ex- 
plained how he implemented a quick 
booting Forth on a portable 
computer.On September 24, Nathaniel 
Grossman described his method for 



implementing nine decimal place, bi- 
nary logarithms in fixed-point Forth. 
John Hall, FIG Chapter Coordinator, 
gave a report on the activities of other 
FIG chapters. There was some discus- 
sion on the way to increase com- 
munication between chapters. Later, 
the group talked about implementation 
of Forth-83, which may lead to a 
model. Martin Tracy demonstrated 
and described the MicroMotion im- 
plementation of Forth-83 . Greg 
Stevenson discussed a method of 
speeding dictionary searches indepen- 
dent of the existing method. At the Oc- 
tober 22 meeting, Nathaniel Grossman 
spoke on finding 16-bit square, cube, 
etc, roots by Newton's method, in 
fixed-point Forth. Bob Jaffray 
presented a simple method to provide 
execution security by testing for valid 
CPAs as a patch to NEXT. Steven Lewis 
talked about verify, a word to docu- 
ment effects of the execution of a 
Forth word. Jim White described an 
implementation of LISP in Forth. Ken 
Inouye demonstrated Forth on the new 
Sharp 16-bit CPU computer. There 
were also reports from members who 
attended the National Forth Conven- 
tion. About thirty-five people attended 
this chapter meeting and enjoyed it 
very much. 

Iowa Chapter (in formation) 

August 23, the group saw a presenta- 
tion of a simple but fast LIFE imple- 
mentation on the Commodore 64 (us- 
ing C64-Forth from Performance Mic- 
ro Products) by Robert Benedict, As- 
sistant Professor of Mechanical En- 
gineering. One generation in Forth was 
1.6 seconds vs. 126 seconds in BASIC. 
Another demonstration by Scott Ev- 
ans, an electrical engineering student, 
showed some Forth utiUties developed 
for the Commodore 64, used as a con- 
troller to move a hydrophone in a 
plane, for data acquisition. 

Eugene Johnson, a professor of 
mathematics, presented a series of 
words on September 27 to do matrix 
operations. He uses these in his courses 



on linear algebra. Michael Ham show- 
ed some words that simply ignore in- 
vaUd input. These are useful when the 
range of valid input is obvious, as from 
a menu. The effect for the user is that 
the only keys that work are those for 
vahd input. 

Orange County Chapter 

Roy Martens paid a brief visit at the 
August 24 meeting, and discussed what 
was happening with the Northern Cali- 
fornia Chapter, and the state of the 
Forth-83 standard. Lee Jordan pre- 
sented a paper on a 6502 disassembler. 
Lee is a beginning Forth programmer 
and was unaware of the present state of 
the art of Forth disassemblers. He put 
a lot of work into it; one learns by do- 
ing. At a short meeting on September 
7, Wil Baden presented his text format- 
ter, which was a model done in Pascal. 

Northern California Chapter 

At the October 22 morning FORML 
meeting, Doug Dillon presented code 
for a Modem-7 environment. Doug's 
code was written in Forth-83, using the 
Laxen and Perry implementation. 
Michael Stolowitz presented code on a 
B-tree and file-indexing method, also 
using F83. In the afternoon. Bob Reil- 
ing, Forth Convention Chairman, gave 
a review of the convention and report- 
ed an attendance of over 12(X). Larry 
Forsley and Thea Martin, from Ro- 
chester, New York, spoke about the 
latest state of affairs at the Institute for 
Applied Forth Research, which they 
direct. Larry mentioned the next con- 
ference in Rochester, to be held June 5 
through 9. The topic is to be Forth Ap- 
plications, with one day devoted to 
real-time systems. Mike Perry gave a 
demonstration of a Forth-based CP/M 
BIOS generator, and discussed the vir- 
tues of Forth-83 in combination with 
the F83 implementation. 

Support your local chapter! 

John D, Hall is the Chapter Coor- 
dinator for the Forth Interest Group 
and is a consulting programmer. 
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Chapters in Formation 

Here are more of the new chapters 
that are forming. If you Hve in any of 
these areas, contact one of these people 
and offer your support in forming a 
FIG chapter. 
Contact: 

Charles Samuels 
7805 Linda Lane 
Anchorage, AK 99502 

Doug Dillon 

California Cedar Products 
P.O. Box 8449 
Stockton, CA 95208 
209/931-2448 

Robert McFarland 
DIGILOG Corp. 
Box 3315 

Ventura, CA 93006 



Alan B. Cohen 
14 Candlelight Dr. 
Danbury, CT 06810 

Alan H. Lake 
Bankers First 
P.O. Box 1332 
Augusta, GA 30913 

Michael Ham 
3110 Alpine Ct. 
Iowa City, lA 53340 
319/337-1353 



Manfred Peschke 
Intersystems Mgmt. & Consult. 
Story Hill Rd. RFD 3 
Dunbarton, NH 03045 



Gary Bergstrom 

191 Miles Rd. 

Chagria Falls, OH 44022 



Steve Buffone 
621 Center Ave. 
Cuyahoga Falls, OH 

Joel A. Neely 
Interface Solutions, Inc. 
Box 1 1 167 

Memphis, TN 38111 



Jim Watson 
801 Orleans 

Corpus Christi, TX 78418 



Pete Koza 

9671 NE 122 Place 

Kirkland, WA 98033 



Zafar Essak 
P.O. Box 46263 
Vancouver, BC V6R 4G6 
Canada 



Norbert Heindl 
reflecta-electronic gmbh 
Berlichingstrasse 9 
8540 Schwabach 
West Germany 

P.J. Reynolds 
Murray & Roberts Bldg. 
P.O. Box 4853 
Cape Town 8000 
South Africa 



Fig Chapters 

U.S. 



• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 



• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 11 a.m. 

Allstate Savings 

8800 So. Sepulveda Boulevard 

Los Angeles 

Call Phillip Wasson 

213/649-1428 

Northern California Chapter 

Monthly, 4th Sat., 1 p.m. 
FORML Workshop at 10 a.m. 
Palo Alto area. 
Contact FIG Hotline 
415/962-8653 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
Fullerton Savings 
Talbert & Brookhurst 
Fountain Valley 
Monthly, 1st Wed., 7 p.m. 
Mercury Savings 
Beach Blvd. & Eddington 
Huntington Beach 
Call Noshir Jesung 
714/842-3032 



San Diego Chapter 

Weekly, Thurs., 12 noon. 
Call Guy Kelly 
619/268-3100 ext. 4784 



• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Call Steven Sarns 
303/477-5955 

• ILLINOIS 

Fox Valley Chapter 

Call Samuel J. Cook 
312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 
312/885-8092 



• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilber E. Walker Co. 
532 S. Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 



• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed., 5 p.m. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 



• MINNESOTA 

MNFIG Chapter 

Monthly, 1st Mon. 
1156 Lincoln Avenue 
St. Paul, MN 
Call Fred Olson 
612/588-9532 



• MISSOURI 

Kansas City Chapter 

Call Terry Rayburn 
816/363-1024 

St. Louis Chapter 

Monthly, 3rd Tue., 7 p.m. 
Thomhill Branch of 
St. Louis County Library 
Call David Doudna 
314/867-4482 



• NEVADA 

Southern Nevada Chapter 

Suite 900 

101 Convention Center Drive 
Las Vegas, NV 
Call Gerald Hasty 
702/452-3368 



• NEW UERSEY 

New Jersey Chapter 

Call George Lyons 
201/451-2905 eves. 



• NEW YORK 

New York Chapter 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Tom Jung 
212/432-1414 ext. 157 days 
212/261-3213 eves. 

Rochester Chapter 

Monthly, 4th Sat., 2 p.m. 
Hutchison Hall 
Univ. of Rochester 
Call Thea Martin 
716/235-0168 



Syracuse Chapter 

Call C. Richard Corner 
315/456-7436 



• OHIO 

Athens Chapter 

Call Isreal Urieli 
614/594-3731 

Dayton Chapter 

Twice monthly, 2nd Hies & 

4th Wed., 6:30 p.m. 

CFC, 11 W. Monument Ave. 

Suite 612 

Dayton, OH 

Call Gary M. Granger 

513/849-1483 



• OKLAHOMA 

HAsa Chapter 

Monthly, 3rd Tbes., 7:30 p.m. 

The Computer Store 

4343 South Peoria 

TUlsa, OK 

Call Art Gorski 

918/743-0113 

• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Computer & Things 
3460 SW 185th, Aloha 
Call Timothy Huang 
503/289-9135 



• PENNSYLVANIA 

PhUadelphia Chapter 

Monthly, 3rd Sat. 

LaSalle College, Science Bldg. 

Call Lee Hustead 

215/539-7989 
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Vendors (Continued from page 35) 



• TEXAS 

Dallas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Software Automation, Inc. 
14333 Porton, Dallas 
Call Marvin Elder 
214/392-2802 or 
Bill Drissel 
214/264-9680 



Southern Ontario Chapter 

Monthly, 1st Sat., 2 p.m. 
General Sciences Bldg, 
Rm 312 

McMaster University 
Contact: Efr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S 4K1 
416/525-9140 ext. 2065 



Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 



• VERMONT 

Vermont Fig Chapter 

Monthly, 4th Thurs., 7:30 p.m. 
The Isley Library, 3rd fl. 
3rd Floor Meeting Room 
Middleburynes, VT 
Call Hal Clark 
802/877-2911 days 
802/452-4442 eves 



• VIRGINIA 

Potomac Chapter 

Monthly, 1st Tues., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/437-9218 eves. 



FOREIGN 



• AUSTRALIA 

Australia Fig Chapter 

Contact: Ritchie Laird 
25 Gibsons Road 
Sale, Victoria 3850 
051/44-3445 

FIG Australia Chapter 

Contact: Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 

Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg., 
Rm LG19 

Univ. of New South Wales 
Sydney 

Contact: Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 

Contact: Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

• CANADA 

Nova Scotia Chapter 

Contact: Howard Harawitz 
P.O. Box 688 
Wolfville, Nova Scotia 
BOP 1X0 
902/542-7812 



• COLOMBIA 

Colombia Chapter 

Contact: Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 

• ENGLAND 

Forth Interest Group U.K. 

Monthly, 1st Thurs., 
7 p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
Contact: Keith Goldie-Morrison 
15 St. Albans Mansion 
Kensington Court Place 
London W8 5QH 

• ITALY 

FIG Italia 

Contact: Marco Tausel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 

• SWITZERLAND 

Contact: Max Hugelshofer 
ERNI & Co. Elektro-Industrie 
Stationsstrasse 
8306 Bruttisellen 
01/833-3333 

• TAIWAN 

Taiwan Chapter 

Contact: J.N. Tsou 

Forth Information Technology 

P.O. Box 53-200 

Taipei 

02/331-1316 



SPECIAL GROUPS 

Apple Corps FORTH 
Users Chapter 

Twice Monthly, 1st & 

3rd TUes., 7:30 pm 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

FIGGRAPH 

Call Howard Pearlmutter 
408/425-8700 



Triangle Digital Services, Ltd. 
lOOA Wood St., Walthamstow 
London E17 3HX England 
01-520-0442 Telex 262284 

Application Packages Only 

See System Vendor Chart 
for others 

Curry Associates 
P.O. Box 11324 
Palo Alto, CA 94306 
415/322-1463 

InnoSys 

2150 Shattuck Ave. 
Berkeley, CA 94704 
415/843-8114 



Consultation & I^aining Only 

See System Vendor Chart 
for others 

Bartholomew, Alan 
2210 Wilshire Blvd. #289 
Santa Monica, CA 90403 
213/394-0796 

Boulton, Dave 
581 Oakridge Dr. 
Redwood City, CA 94062 

Brodie, Leo 

17714 Kingsbury St. 

Granada Hills, CA 91344 

213/368-3677 

Eastgate Systems Inc. 
P.O. Box 1307 
Cambridge, MA 02238 

Girton, George 

1753 Franklin 

Santa Monica, CA 90404 

213/829-1074 

Go FORTH 

504 Lakemead Way 

Redwood City, CA 94062 

415/366-6124 

Harris, Kim R. 
Forthright Enterprises 
P.O. Box 50911 
Palo Alto, CA 94303 
415/858-0933 

Intersystems Management 
Computer Consultancy 
Story Hill Rd. RFD3 
Dunbarton, NH 03045 
603/774-7762 

Laxen, Henry H, 
1259 Cornell Ave. 
Berkeley, CA 94706 
415/525-8582 

Mcintosh, Norman 
2908 California Ave., #3 
San Francisco, CA 94115 
415/563-1246 

Metalogic Corp. 

4325 Miraleste Dr. 

Rancho Palos Verdes, CA 90274 

213/519-7013 



Peschke, Manfred 
Intersystems Mgmt. & Consult, 
Story Hill Rd. RFD 3 
Dunbarton NH 03045 
603/774-7762 

Petri, Martin B. 
Computer Consultants 
16005 Sherman Way 
Suite 104 

Van Nuys, CA 91406 
213/908-0160 

Redding Co. 
RO, Box 498 
Georgetown, CT 06829 
203/938-9381 

Schleisiek, Klaus 
Eppendorfer Landstr. 16 
D 2000 Hamburg 20 
West Germany 
(040)480 8154 

Schrenk, Dr. Walter 
Postfach 904 
7500 ^arlstruhe-41 
West Germany 

Software Engineering 
6308 TVoost Ave. #210 
Kansas City, MO 64131 
816/363-1024 

Softweaver 
P.O. Box 7200 
Santa Cruz, CA 95061 
408/425-8700 

Timin, Mitchel 
3050 Rue d'Orlean #307 
San Diego, CA 92110 
619/222^185 

Technology Management, Inc. 
1520 S. Lyon St. 
Santa Ana, CA 92705 
714/835-9512 
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FORTH System Vendors 

(by Category) 

(Codes refer to alphabetical listing 
e.g., Al signifies AB Computers, etc«) 



Processors 



1802 


, . CI. C2, F3. F6. L3 


6502 (AIM, KIM. SYM) ,, 


. . Rl, R2, SI 


6800 


. . C2, F3, F5, Kl, L3, M6, Tl 


6801 


.. P4. Tl 


6809 


.. C2, F3, L3, M6, Sll. Tl 


68000 


C2. C4, Dl, El, F3, Kl, Tl 


68008 


P4, Tl 


8080/85 


, , A5. CI, C2, F4. 15. LI, L3, M3, 




M6, Rl, T3 


Z80/89 


A3, A5, C2, F3. F4, 13, LI, M2. 




M3, M5, Nl, T3 


Z80000 


13 


8086/88 


C2, F2, F3, LI, L3, M6 


9900 


. . E2, L3 



Computers 






.. P3. S3 




. , A4, F3. F4. 12. 14, Jl. L4, M2, 


M6. M8, 02, 03 




.. M6. P2, Ql.Vl 




. . F3, M5 




. . A5, M2, M6 


DECPDP/LSI-ll 


. . C2, F3, L2. S3 


Heath-89 


, , M2, M6, M7 






Hewlett-Packard 9826/36 


. . C4 




A8. C2. F3. LI, M5, M6. Q2. S9, 




W2 


IBM Other 


.. L3. Wl 




, M2 




A2. M2, S2 




. 15. M2. PI. S7 




, C5 




A6, Bl, C3, Ol, S6, T2 




M2 


Pet SWTPC 


Al, A6, Bl, C3, 01, S6, T2, T5 


Poly Morphic Systems 


A7 


TRS-80I,II,ni,XVI 


15, M2, M5, M6, S4, S5, SIO 


TRS-80 Color 


A3, A8, F5, M4, Sll, Tl 




.. M2 



Operating Systems 



CP/M A3. A5, C2, F3, 13, L3, Ml. M2, 

M6. T3 

CP/M-86 C2, F3 

CP/M-68K Tl 

FLEX Tl 

RSX-ll F3 



Other Products/Services 



Applications F3, P4 

Boards, Machine F3, M3, P4. R2 

Consultation C2, C4, F3, Nl, P4. T3, Wl 

Cross Compilers C2, F3, 13, M6, Nl, P4, Tl 

Products, Various A5, C2, F3, 15, S8, W2 

Training C2, F3, 13, P4, Wl 



FORTH Vendors (Alphabetical) 

The following vendors offer FORTH systems, applications, or con- 
sultation. FIG makes no judgment on any product, and takes no 
responsibility for the accuracy of this list. We encourage readers to 



FORTH Systems 



1 . AB Computers 
252 Bethlehem Pike 
Colmar. PA 18915 
215/822-7727 

2. Acropolis 

17453 Via Valencia 
San Lorenzo, CA 94580 
415/276-6050 

4. Applied Analytics Inc. 
8910 Brookridge Dr., #300 
Upper Marlboro, MD 20870 

5. Aristotelian Logicians 
2631 E. Pinchot Ave. 
Phoenix, AZ 85016 

7. Abstract Systems, etc. 
RFD Lower Prospect Hill 
Chester, MA 0101 1 

8. Armadillo Int'l Software 
P.O. Box 7661 
Austin, TX 78712 
512/459-7325 



B 

1. Blue Sky Products 
729 E, Willow 
Signal Hill. CA 90806 

2. Business Computing Press 
2210 Wilshire Blvd. 
Suite 289 

Santa Monica. CA 90403 
213/394-0796 



1. Capstone Computing, Inc. 
5640 Southwyck Blvd., #2E 
Toledo, OH 43614 
419/866-5503 

2. Chrapkiewicz, Thomas 
16175 Strieker 

East Detroit, MI 48021 

3. CMOSOFT 
P.O. Box 44037 
Sylmar, CA 91342 



keep us informed on availability of the products and services listed. 
Vendors may send additions and corrections to the Editor, and must 
include a copy of sales literature or advertising. 



4. COMSOL, Ltd. 
Ti-eway House 
Hanworth Lane 
Chertsey, Surrey 
England KT16 9LA 

5. Consumer Computers 
8907 La Mesa Blvd. 
La Mesa, CA 92041 
714/698-8088 

6. Creative Solutions, Inc. 
4801 Randolph Rd. 
Rockville, MD 20852 
301/984-0262 

7. Curry Associates 
P.O. Box 60324 
Palo Alto, CA 94306 



1. Elcomp Publishing, Inc. 
53 Redrock Lane 
Pomona, CA 91766 
714/623-8314 
Telex 29 81 91 



2. Elcomp-Hofacker 
Tegernseerstr. 18 
D-8150 Holzkirchen 
West Germany 
08024/7331 

Telex 52 69 73 

3. Emperical Research Group 
P.O. Box 1176 

Milton, WA 98354 
206/631-4855 

4. Engineering Logic 
1252 13th Ave. 
Sacramento. CA 95822 

5. Eco Technologies 

1 100 Larkspur Landing 
Circle #275 
Larkspur, CA 94939 
415/461-6121 



1. Fantasia Systems. Inc. 
1059 The Alameda 
Belmont, CA 94002 
415/593-5700 



3. FORTH, Inc. 

2309 Pacific Coast Highway 
Hermosa Beach, CA 90254 
213/372-8493 

4. FORTHWare 

639 Crossridge Terrace 
Orinda, CA 94563 

5. Frank Hogg Laboratory 
130 Midtown Plaza 
Syracuse, NY 13210 
315/474-7856 

6. FSS 

P.O. Box 8403 
Austin, TX 78712 
512/477-2207 



H 

1. HAWG WILD Software 
P.O. Box 7668 
Little Rock. AR 72217 



1. IDPC Company 
P.O. Box 11594 
Philadelphia, PA 19116 
215/676-3235 

2. lUS (Cap'n Software) 
281 Arlington Ave. 
Berkeley, CA 94704 
415/525-9452 

3. Inner Access 
517K Marine View 
Belmont, CA 94002 
415/591-8295 

4. Innovatia Laboratories 
5275 Crown St. 

West Linn. OR 97068 

5. Insoft 

10175 S.W. Barbur Blvd. 
Suite #202B 
Portland, OR 97219 
503/244-4181 

6. Interactive Computer 
Systems, Inc. 

6403 Di Marco Rd. 
Tampa, FL 33614 



1 . JPS Microsystems, Inc. 
361 Steelcase Rd., W. 
Markham, Ontario 
Canada L3R 3V8 
416/475-2383 



K 

1. KukuHes, Christoph 
Ing, Buro Datentec 
Heinrichsallee 35 
Aachen, 5100 
West Germany 



1 . Laboratory Microsystems 
4147 Beethoven St. 
Los Angeles, CA 90066 
213/306-7412 



2. Laboratory Software 
Systems, Inc. 

3634 Mandeville Canyon 
Los Angeles, CA 90049 
213/472-6995 

3. Lynx 

3301 Ocean Park, #301 
Santa Monica, CA 90405 
213/450-2466 

4. Lyons, George 
280 Henderson St. 
Jersey City. NJ 07302 
201/451-2905 

M 

1. M & B Design 
820 Sweetbay Dr. 
Sunnyvale, CA 94086 

2. MicroMotion 

12077 Wilshire Blvd.. #506 
Los Angeles, CA 90025 
213/821-4340 

3. Microsystems, Inc. 

2500 E. Foothill Blvd., #102 
Pasadena, CA 91107 
213/577-1477 

4. Micro Works, The 
P.O. Box 1110 

Del Mar, CA 92014 
714/942-2400 

5. Miller Microcomputer 
61 Lake Shore Rd. 
Natick, MA 01760 
617/653-6136 

6. Mountain View Press 
P.O. Box 4656 
Mountain View. CA 94040 
415/961-4103 

7. MCA 

8 Newfield Ln. 
Newtown, CT 06470 

8. Metacrafts Ltd. 

Beech Trees, 144 Crewe Rd. 
Shavington, Crewe 
England CWl 5AJ 



1. Nautilus Systems 
P.O. Box 1098 
Santa Cruz, CA 95061 
408/475-7461 

O 

1. OSI Software & Hardware 
3336 Avondale Court 
Windsor, Ontario 
Canada N9E 1X6 
519/969-2500 

2. Offete Enterprises 
1306 S **B" St. 

San Mateo, CA 94402 

3. On-Going Ideas 
RD #1, Box 810 
Starksboro, VT 05487 
802/453-4442 



1 . Perkel Software Systems 
1636 N, Sherman 
Springfield, MO 65803 



2. Pink Noise Studios 
P.O. Box 785 
Oockett, CA 94525 
415/787-1534 

3. Professional Mgmt. Services 
724 Arastradero Rd., #109 
Palo Alto. CA 94306 
408/252-2218 

4. People ware Systems Inc. 
5190 West 76th St, 
Minneapolis, MN 55435 
612/831-0827 

Q 

1 . Quality Software 

6660 Reseda Blvd., #105 
Reseda, CA 91335 

2. Quest Research, Inc. 
P.O. Box 2553 
Huntsville, AL 35804 
800/558-8088 

R 

2. Rockwell International 
Microelectronics Devices 
P.O. Box 3669 
Anaheim, CA 92803 
714/632-2862 

S 

1 . Satellite Software Systems 
288 West Center 

Orem. UT 84057 
801/224-8554 

2. Saturn Software, Ltd, 
P.O. Box 397 

New Westminister, BC 
Canada V3L 4Y7 

3. Shaw Labs, Ltd. 
P.O. Box 3471 
Hayward. CA 94540 
415/276-6050 

4. Sierra Computer Co, 
617 Mark NE 
Albuquerque, NM 87123 

5. Sirius Systems 

7528 Oak Ridge Highway 
Knoxville, TN 37921 
615/693-6583 

6. Software Federation 
44 University Drive 
Arlington Hts., I L 60004 
312/259-1355 

7. Software Works, The 
1032 Elwell Ct., #210 
Palo Alto. CA 94303 
415/960-1800 

8. Spectrum Data Systems 
5667 Phelps Luck Dr. 
Columbia. MD 21045 
301/992-5635 

9. Stearns. Hoyt Electronics 
4131 E. Cannon Dr. 
Phoenix. AZ 85028 
602/996-1717 

10. Stynetic Systems. Inc. 
Flowerfield, Bldg, 1 
St. James. NY 11780 
516/862-7670 



1 1 . Supersoft Associates 
P.O. Box 1628 
Champaign, IL 61820 
217/359-2112 

12. Sylmar Software 
P.O. Box 44037 
Sylmar, CA 91342 

T 

1 . Talbot Microsystems 
1927 Curtis Ave. 
Redondo Beach. CA 90278 
213/376-9941 

2. Technical Products Co. 
P.O. Box 12983 
Gainsville, FL 32604 
904/372-8439 

3. Timin Engineering Co. 
C/o Martian Technologies 
8348 Center Dr. Suite F 
La Mesa, CA 92041 
619/464-2924 

4. Transportable Software 
P.O. Box 1049 
Hightstown, NJ 08520 
609/448-4175 

V 

1, Valpar International 
3801 E. 34th St, 
TUcson, AZ 85713 
800/528-7070 

W 

1 . Ward Systems Group 
8013 Meadowview Dr. 
Frederick. MD 21701 

2. Worldwide Software 
2555 Buena Vista Ave. 
Berkeley, CA 94708 
415/644-2850 

3. Wycove Systems. Ltd. 
P.O. Box 499 
Dartmouth. NS B2Y 3Y8 
Canada 
902/469-9897 

Z 

1. Zimmer, Tom 
292 Falcato Dr. 
Milpitas, CA 95035 

2. Ziggurat Software 
P.O. Box 100 

N. Salem. NH 03073 

Boards & Machines Only 

See System Vendor Chart 
for others 

Controlex Corp. 
16005 Sherman Way 
Van Nuys, CA 91406 
213/780-8877 

Datricon 

7911 NE 33rd Dr., #200 
Portland. OR 97211 
503/284-8277 

Golden River Corp. 
7315 Reddfield Ct. 
Falls Church, CA 22043 

(Continued on page 33) 



FORTH INTEREST GROUP 



MAIL ORDER 



r~l Membership in FORTH Interest Group and 
Volume V of FORTH DIMENSIONS 

□ Back Volumes of FORTH DIMENSIONS. Price per each. 

O On On Qiv 

Qfig-FORTH Installation Manual, containing the language model 

of fig-FORTH, a complete glossary, memory map and installation instructions 

□ Assembly Language Source Listings of fig-FORTH for specific CPU's 
and machines. The above manual is required for installation. 
Check appropriate box(es). Price per each. 

□1802 06502 06800 06809 ^VAX □zSO 

□8080 □8086/8088 ^9900 □APPLE 11 □ECLIPSE 

□pace □nova □PDP-11 ^68000 □ALPHA MICRO 

Q "Starting FORTH, by Brodie . BEST book on FORTH. (Paperback) 
£□ "Starting FORTH" by Brodie. (Hard Cover) 
]n PROCEEDINGS: FORML (FORTH Modification Conference) 
O 1980, $25USA/$35Foreign 
ri 1981, Two Vol., $40USA/$55Foreign 
[J 1982, $25USA/$35Foreign 
ROCHESTER FORTH Conference 
1981, $25USA/$35Foreign 
£:? 1982, $25USA/$35Foreign 

1983, $25USA/$35Foreign Total 
STANDARD: Q FORTH-79, QFORTH-83. $I5USAy$18Foreign EACH . Total 
f-^ Kitt Peak Primer, by Stevens. An in-depth self -study book. 
MAGAZINES ABOUT FORTH: BtTE Reprints 8/80-4/81 
Dr Dobb's Jrnl, ~J 9/81, Q 9/82, 9/83 
Q Poplar Computing, 9/83 $3.50USA/$5Foreign EACH. Total 
£7 FIG T-siiirts: Q Small rn Medium *2] Large j X-Large 
£2 Poster, BYTE Cover 8/80, 16"x22" 

Q FORTH Programmer's Reference Card. If ordered separately, send 
a stamped, self addressed envelope. 

TOTAL 



USA 

$15 

$15 
$15 



$15 



$18 
$23 



FOREIGN 
AIR 

$27 

$18 
$18 



$18 



$22 
$28 



$ 

$ 

$25 



$35 



$10 
$ 3 



$12 
$ 5 



Free 



NAME 



ORGANIZATION^ 
ADDRESS 



_MS/APT_ 
PHONE ( 



CITY 



VISA# 



STATE 



ZIP 



COUNTRY 



MASTERCARD* 



AMERICAN EXPRESS # 



Card Expiration Date_ 



(Minimum of $15.00 on Charge Cards) 

Make check or money order in US Funds on US Bank, payable to: FIG. All prices include 
postage. No purchase orders without check. California residents add sales tax. 10/83 

OREDER PHONE NUKBERx (A15) 962-8653 

FORTH INTEREST GROUP «P0 BOX 1105* SAN CARLOS, OA 94070 



FORTH INTEREST GROUP 

P.O. Box 1105 

San Carlos, CA 94070 
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